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Guida all’input dei programmi sullo ZX Spectrum 


Le "parole'' comprese ira parentesi graffe indicono » caratteri grafici pre 
definiti (G). il tasto (numero seguente la G). la necessità di premere il tosto 
insieme a CAPS S HIF 7 (eventuale 5 precedente o G) e il numero di ripeti¬ 
zioni del tasto r, chieste (e'/entjole numero all'inizio della parola”) I co 
ratte' i grafie definiti dal programma sono invece mcPcau da lettere maiu 
scole (corrispondenti al tasto da usare) sottolineate 


[ Quando leggete ~][ 


Premete 



Vedrete 


{Gl} 

(G2) 

{ G 3 } 
{G4} 

{G 5} 

{G 6} 

{G7} 

{G 8} 

{SG1} 
(SG2 ) 
{SG3} 
{SG4 ) 
{SG5} 
{SG6} 
{SG7} 
{SG8} 






| Quando leggete""} | Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

V 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 


5* i»e* »irt» 
f<» I» mo4o 
(, IflfMKi 
curdo 
«oMmpon- 

CAPS SMITT 
r* 


Simbolo grafico 
definito nel 
programma in uso. 



Guida per l’input dei programmi versioni VIC IO e €04 


Notate che i listati contengono ' 'parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario'', 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


(CLR) 
{HOME} 
{SU) " 
{GIU'} 
{SIN} 
{DBS} 
(RVS) 
{OFF} 

{BLK} 
{WHT} 
(RED) 


[ SHlft 


ClR'HOMI ] 

* 

gBpgd 

ClR/HQMt] 


gggg^ 

SWM 


CRSR L 


mi 


H casa ai 



[SMIH 


C^CBSB =*\ 


mp 


CBS» ■=»] 


h v 

I ctri 




c 


s 


n 






{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
[<1>] 
l<2>] 
(< 3> ] 
l<4>} 
l<5>] 
l<6>] 


I crei 

FI 


CTRI 

I * 

ar« 

CIRI 

It. 


CIRI 

I’M 


[ CIRI 

i*j 


BO 

BO 

BO 

BO 

BO 

BO 


k 

(<7>) 

m 

(<8>] 

□ 

{FI} 

Q 

{ F2 } 

ai 

{ F3 } 

□ 

{F4 } 

K 

{ F5 } 

a 

{ F6 } 


{ F7 } 

E 

■1 

{ F8 } 


BO 

□ 

BO 

■ ■ 
■ ■ 

m 

Hi 

m 

a 

ttj 

■ 

1X1 

12 

KB 

II 

03 

Si 

KB 

■1 

tZD 

■ 
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« .appiè 

mmmmb 



mmmmam 


Ecco una variabile del Nim, un gioco veramente 
avvincente c apprezzato. È possibile scegliere 
uno fra i tre livelli di difficoltà proposti e il nu 
mero di sezioni (minimo 2, massimo 6) di cui 
si vuole comporre il campo di gioco. Il program 
ma propone la scelta su chi debba essere il pri- 


50 FOR 1 - 770 TO 906i READ Ji POKE 
I,JiK • K ♦ Ji NtXT a 1F K < 

> BOI THEN STOP 
Ò0 DATA 173,40,192,130,208,!),206 
,1 ,3,240,9,202,206,245,174,0 
,3,76,2,3,96,169,0,73,0,141 , 

31,3,96.0,5,0,12,0,47,0,63,0 
,64,0,67,0 

70 DATA 219,219,27,56,46,62,9,68 
,46,44,36,17,37,55,14,9,39,1 
72,171,33,44,66,104,34,44,54 
,1 , HB , 46 , 14 , 3ò , 53 , 40 , 54 , 0 , 2 1 
9,155.36,44.45,222,43,45,54, 
73,33,Jò,63,9,43,0 
80 DATA 219,219,34,36.53.53.53,3 
7,36,9,54,14,33,36,45,18,36, 
45,54,6,0,34,36,0,219,19,36, 

63,84,41,37,9,54,46,37,36,63 
,73,49.54,45,36,4,0 
90 1F PEEK (175) ♦ 256 * PEEK 
(176) > 8157 THEN 130 
100 POKE 232,32: POKE 233,3: TEXT 
i HOME i HGR i ROT- 0: FOR I 
» 1 TO 5i SCALE- I: GOSUB 1 
20: NEXT i FOR t - 0 TO 128 STEP 
4: RQ T® li GOSUB 120: NEXT i 
FUR I - 1 TO 15: SCALE- li GOSUB 
120: NcXT 

110 FOR I « l5 TO 1 STEP - li SCALF¬ 
II GOSUB 120i NEXT i FOR I - 
1 IO 0: SCALE- li GOSUB 120: 

NEXT : HCOLUR— 6i DRmW 1 AT 
140,90; FUR 1 - 1 TO 5i PRINT 
CHR* (7)i NEXT i GOTO 140 
120 XDRmW 1 AT 140,90i FOR J - 1 

TO 5iK - PEEK < - 16336)1 NEXT 
l XhRAU 1 AT 14u,90i RETURN 

130 TEXT i HOME i VTAB 12i HTAB 
11: PR1 NT •«** SUPER-NIM ••• 

m 

140 GOSUB 11701 TEXT i HOME i GOSUB 
1 180 

160 TEXT : HOME i VTAB 8i HTAB 7 
: PRINT "LIVELLI DI DIFFICOL 
TA'“i PRINT : PRINT 


mo a giocare; vince il gioco chi riesce a togliere 
l'ultimo pezzo dell'ultima sezione. Aumentan 
do il numero delle sezioni e il livello di difficoltà 
è veramente difficile riuscire a battere il calco¬ 
latore. Buona fortuna! 


170 HTAB 7: PRINT -1) PRINCIPI**! 

TE": PRINT i HTAB 7i PRINT • 

2) MEDIO": PRINT i HTAB 7i PRINT 
•3) ESPERTO-i PRINT i PRINT 
:i HTAO 7i PRINT "QUALE? (1- 
2-3) -B*| 

180 GET A*; FuR DF - 1 TO 3i IF 
A* ^ S7RS < DF) THEN PRINT 
B*t GOTO 200 

190 NEXT i GOTO 1BO 

200 HOME : VTAB 12: HTAB 7: PRINT 
-NUMERO DI SEZIONI (2-6) ; ■ 

1 

210 GET A*i FOR MX - 2 TO ói IF 
A* - STR* (MX) THEN PRINT 
661 HOME i GOTO 230 

220 NEX1 ; GOTO 210 

230 FOR J - 3 TO 6iS(J) - Oi NEXT 
iMV - 0:3(1) - 63i POR J - 3 
TO MXiS(J) - FN R(19) ♦ 45 
i NEXT : IF MX - 2 THEN S(3) 

- ù 

240 MU - FN 42) ♦ 10i FOR J - 
1 TO 15i IF MV - MT ( J ) ThLN 
240 

25U NEXT :S(2) - 63 - MUiMV - Oi 
O0SUB 600 

260 HOME i HTAB 111 PRINT "VUOI 
GIOCARE PER PRIMO? GObUtì 

1 1 40 

270 GET Ati IF Af - -S* THEN 300 

200 IF A» - "N" THLN 490 

290 GOTO 270 

SUO HOME i HTAB 131 PRINT * E' IL 
TUO TURNO"b* 

SIO FOR 1 - 1 TO MXi IF Tb(l> - 

TB THLN FOR P - 1 TO lOOOi NEXT 
: PRINT i HTAB 3i PRINT "CRE 
DO CHE SCEGLIERAI LA SEZIONE 
• I - !"B*B*i FOR P « 1 TO 45 
00i NEXT i GOTO 360 

320 NEXT i PRINT i HTAB li PRINT 
"SCEGLIERE NUMERO SEZIONE C' 

F' - FINE) "j 

330 GET A*i IF Al - ’F* THEN TEXT 


4 


















i HOME i CLEAR i GOTO 920 
340 FOR l * 1 TO MXj 1F h$ « STRt 
<I) AND S<I) THEN PR1NT Bt i 
GOTO 3ò0 

350 NEXT : GOTO 330 
360 CSt « FOR B = 5 TO 0 STEP 

- li 1F SBU,B> THEN CSt « 

CSt 4 STKt (Ó-B) ♦ " *« GOTO 
380 

370 CSt = CSt ♦ •. • 

38Ù NEXT s POKE 34,15i HOME s HTAB 
18i PRINT LEFTt <CSt,6>i HTAB 
18i PRINT MI Dt (est,7,6) 

390 IF TB<I) » 1 THEN PRINT i HTaB 
2: PRINT "SCELTE ESAURITE! M 
UOUEKO' PER TE-BtBts GOSUB 1 
170:MU « S<I>:S(I> « Ot GOSUB 
o8ui GOTO 470 

400 PRINT i PRINT "QUESTI SONO I 

PEZZI NELLA SEZIONE ";l|t POKE 
34,20 

410 HTAB It UTAB 21i PRINT SPC< 

79)i HTAB l; UTAB 21i INPUT 
-TOGLI I PEZZI (DA I A 3) IN 
ORDINE ASCENDENTE <'F' PER 
TERMINARE) -;Ati IF LEFTt ( 

At,l) « “F" THEN TEXT i HOME 
i CLEAR i GOTO 920 
420 FOR J - l TO 151 IF LMt< J) - 
At THEN GOSUB 820i GOTO 450 

430 NEXT 

440 HOME i FLASH : UTAB 23i HTAB 
51 PRINT "MOSSA NON UALI DA 
! ! ! ! !“i NORMAL i PRINT i GOSUB 
1lòùi GOTO 410 
450 IF NOT OK THEN 440 
460 MU « MT(J)iSU) - SU) - MUl GOSUB 
680 

470 HOME s HTAB 2: PRINT -ORA UI 
ENE EUIDENZIATA LA TUA MOSSA 
•i GOSUB 1140* FOR P - 1 TO 
2000i NEXT i IF TB - 0 THEN 
840 

480 MU = 0 : GOSUB 680 
490 HOME : HTAB 14: PRINT "E' IL 
MIO TURNO "Bt t PRINT i FOR 

P - 1 TO 1500i NEXT i IF TB < 

5 OR DF - 3 THEN 510 
500 IF DF - 1 OR < RND <1) > 5 AND 
TB > 7) THEN 640 

510 POKE QL,OXi POKE 03, FN G<S< 

1>)| FOR J - 2 TO MXi POKE Q 
l, PEEK <03): POKE 02, FN G< 
S(J))i CALL OGi NEXT JiSUM - 
PEEK (03) 

520 IF NOT SUM AND TB < 5 THEN 

FOR P - 1 TO lOOOi NEXT i FLASH 
i HOME i UTAE 15i HTAB 15l PRINT 
-ABBANDONO! "i GOSUB IlóOi GOSUB 
1170i NORMAL t GOTO 840 
530 IF NOT SUM THEN 640 
540 IF TB < 3 THM4 HTAB 3i PRINT 
"SCUSA PER QUESTA MOSSA, MA. 

.•I GOSUB I120i GOTO 56 

0 

550 IF TB < 5 THEN HTAB li PRINT 
•PENSO CHE TU ABBIA POCHE PO 


SSIBILITA' !" I GOSUB 1130 
560 FOR P - 1 TO 500i NEXT i POKE 
Q1,SUMi POP t - 1 TO MXi POKE 
Q2, FN G< SU > > t CALL QGi IF 
FN G<SU ) > > PEEK <Q3) THEN 
580 

570 NEXT i STOP » REM PROGP<¥1 
ERROR 

580 WG » PEEK <Q3>i FOR J - 1 TO 

15t GOSUB R20: IF NOT OK THEN 
600 

590 IF FN G(SU) - MT(J>> - WG THEN 
610 

600 NEXT i STOP t REM PROGRAM E 
RROP 

610 FU - MT < J> i S< t ) - SU) - MU i GOSUB 
6B0i HOME i HTAB 2: PPINT B H 
0 TOLTO -TM- PEZZO* j t IF TM > 

1 THEN HTAB 17t PRINT *I"| 

620 PRINT • DALLA SEZIONE ■ I • . • i 
GOSUB 1140* FOR P - 1 TO 20 
OOs NEXT ! IF TB » 0 THEN 10 
30 

630 FfJ • 01 GOSUB 680» GOTO 300 
640 FOR P - l TO 1000i NEXT 
650 I « FNP(MX) ♦ 1: IF NOT S< 

I) THEN 650 

660 J - FN RU3) ♦ li GOSUB 8201 
IF NOT OK THEN 660 
670 GOTO 610 

680 TB - 0» FOR J - 1 TO 6iTB(J) - 
01TX. - S(J)i FOP B - 0 TO 5i 
T - VA / 2iTX - T t SB< J,B) - 
8GN <T - TX)iTB(J) - TB<J> ♦ 

BR(J,B)i NEXT iTB » TB ♦ TB< 

J) i NEXT i IF NOT WJ THEN 7 
00 

690 TM - 0iTX - MU» FOP B - 0 TO 
5»T - TX. / 21 TV. m TiMB(B) - 
SGN <T - T/O rTM - TM 4 MB< B 
) I NEXT 


700 

FOR 

! J - 

1 TO 6iSTt < J ) 

» ■ * l 


B - 

» 5 TO 

0 STEP - 1 i 

IF J < 


> 

1 THEN 730 


710 

IF 

NOT 

W THEN 730 


720 

IF 

MR<B> 

THEN STt(J) - 

STt < J 


) ♦ 

•o • 

1 GOTO 750 


730 

IP 

3B< J, 

B) THEN STt(J) 

STt 


( J> 

♦ B X 

■l GOTO 750 


740 

STt ( 

J> - 

8Tt<J> 4 -, • 


730 

NEXT i NEXT 


7ò3 

J - 

21K - 

1 iL - li GOSUB 7701 


J - 3iL - 7i GOSUB 770iJ - 7 
iK - 4iL - I i GOSUB 770i J • 

BtL • 71 GOSUB 7701 GOTO 780 

770 PRt< J) - • • ♦ MIDt (STt(K), 

L,6) ♦ • • * ♦ MIDt (9Tt(K ♦ 

1),L,6) ♦ • » • ♦ MIDt < STt 

< K ♦ 2),L,6)i RETURN 

700 TEXT i HOME i UTAB 2i IF MX < 

4 THEN UTAB 5 

790 FOR J - 0 TO 4i PRINT TAB< 

7) | PRt ( J)i NEXT i IF MX < 4 THEN 
810 

800 FOR J - 5 TO 10i PRINT TAB< 

7)|PRt< J) i NEXT 

810 POKE 34,15i RETURN 
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820 OK - Ol POKE QL,GlAi POKL Ul,S 
<I)i POKE Q2 ,MT < J)i CALL OGi 
IF PEEK <Q3> - MT < J > THEN 
OK - 1 


830 

RETURN 



840 

CLEAR iU - 3 



830 

TEXT i HOME 



860 

IF PEEK <173) ♦ 

236 • 

PEEK 


<176) < 8157 THEN 

HGR i 

GOTO 


890 



870 

VTAB 12: HTAB 15i 

IF U - 

3 THEN 


PRINT "HAI VINTI 

n 

!•i GOTO 91 

880 

U 

PRINT -HO VINTO'* 

i GOTO 

910 

890 

ROT- Ol SCALE* 8i 

GOSUB 

980i 


GOSUB 990i GOSUB 

1010 i 

GOSUB 


980i FOR I - 8 TO 

1 STEP 



li SCALE» li GOSUB 940i NEXT 

900 SCALE- 8i GOSUB 990 
905 FOR I - 1 TO 32 STEP 4t ROT- 
li GOSUB 950i NEXT : ROT- 32 
i GOSUB 990i ROT» Ol FOR 1 » 

1 TO 8i SCALE» li GOSUB 9ó0i 
NEXT i GOSUB 1000 
910 FOR I ■ 1 TO 5i PRINT CHR* 

<7>i NEXT i FOR I - 1 TO 300 
Oi NEXT 

920 GOSUB lllOi VTAB 21 i PRINT - 
VUOI GIOCARE ANCORA? "|i GET 
Ati IF Al ■ 'S" THEN FOR I - 
770 TO 906: READ Ji NEXT : TEXT 
i HOME i GOSUB 11801 GOTO 16 
0 

930 TEXT i HOME i VTAB 111 HTAB 
3i PRINT -E' STATO DIVERTENT 
E GIOCARE CON TE."i PRINT I HTAB 
3i PRINT "ARRIVEDERCI ALLA P 
ROSS 1 MA VOLTA !"i PRINT CHRf 
<7)i END 

940 GOSUB 980i GOSUB 970i GOSUB 
980i RETURN 

930 GOSUB 990i GOSUB 970i GOSUB 
990i RETURN 

960 GOSUB lOUOi GOSUB 970i GOSUB 
1000i RETURN 

970 FOR J - 1 TO 5iK » PEEK < - 
16336)1 NEXT i RETURN 
980 XDRAU 2 AT 140 t 60i RETURN 
990 XDRAU 3 AT 140,100l RETURN 
1000 XDRAU U AT 140,60i RETURN 
1010 FOR I - 1 TO 3i FOR J - 100 

TO 30 STEP - 10:K ^ 3i GOSUB 
1020i NEXT i FOR J - 30 TO 1 
00 STEP 10iK - 3i GOSUB 1020 
l NEXT i NEXT i RETURN 
1020 POKE 768,Ji POKE 769,Ki CALL 
770i RETURN 

1030 CLEAR lU - 4i GOTO 830 
1100 X » RND <1)iX - PEEK < - 1 
6384)i IF X < 128 THEN 1100 

1110 POKE - 16368,01 RETURN 
1120 POKE PI,255i POKE DU,190i CALL 
BE: FOR PA - I TO 50i NEXT i 
POKE DU,127i CALL BEi POKE 
PI,190i POKE DU,233i CALL BE 
i RETURN 

1130 POKE PI,180i FOR K - 1 TO 3 


i POKE DU,73i CALL BEi FOR P 
A - 1 TO 30i NEXT i NEXT i POKE 
PI,228i POKE DU,233i CALL BE 

1 RETURN 

1140 FOR I - 1 TO 8iJ -240/11 
POKE PI,Ji POKE DU,Ii CALL 
BEx NEXT i RETURN 

1150 POKE PI,230i POKE DU,233i CALL 
BEi RETURN 

1160 FOR K - 1 TO 300«L - PEEK 
< CL)i NEXT i RETURN 

1170 FOR P » 1 TO 3000i NEXT i RETURN 

1180 PI - 766iDU - 769iBE - 770iC 
L - - 16336i69 - CHR* <7>l 

QG - 791iQl - 792iQL - 793iQ 

2 » 794iQ3 - 799 iOA - 41iQX - 
73 

1190 G* = -0112102312030334102301 
3223303215100 323340 31230 21 23 
31320534254152-1 IF LEN < G* 

) < > 64 THEN STOP i REM 

ENTRY ERROR 

1200 DEF FN G<J> - VAL < MID* 

<G*,J ♦ 1 ,1)) i DEF FN R< J) - 
INT < RND <1) * J) 

1210 DIM LM*<13)i FOR J - 1 TO 1 
5i READ LM*<J)i NEXT 

1220 DATA 1,2,3,4,5,6,12,23,45,5 
6,14,23,36,123,436 

1230 DIM MT<13)i FOR J - 1 TO 13 
i READ MT < J)i NEXT 

1240 DATA 32,16,8,4,2,1,48,24,6, 

3,36,18,9,36,7 

1230 PR*<0) - • 1 2 

3-iPR*<IO) - " 4 

3 6* 

1260 PR*<1) - * * • 

•|PR*<4> • PR*<1)iPR*<6) - P 
R*<l)iPR*<9) - PR*<1)|PR*<3) 


RETURN 


Guida per l’input dei 
programmi sul TI 99/4A 

A causo del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise “andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/4a alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate A dovrete battere 
CONTROL + A; se trovate —, dovrete battere 
CONTROL + SPAZIO, e cosi via. 
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Archivio dischi 



In quale dischetto si trova il programma degli 
invasori spaziali?. Dove ho messo il program 
ma della contabilità familiare o il gioco degli 
scacchi? Chissà quante volte avrete dovuto farvi 
queste domande! Finalmente, grazie a questo 
programma, potrete avere un elenco perfet¬ 
tamente aggiornato di tutti i programmi che 
avete nei vostri dischetti. 

Dopo avere dato RUN, il computer vi chiede¬ 
rà di inserire, uno dopo l'altro, i vostri dischet- 


5 SL = 1 : REM SLOT STAMPANTE 
10 DIM AA*< 100) ,ARK*<500) 

100 GOTO 5000 

200 REM - CARICA ROUTINE IN L 

INGUAGGI0 MACCHINA PER LEGGE 
RE IL CATALOG E PORLO NEL UE 
TTORE AA* - 

205 HOME I HTAB 10: UTAB IO: FLASH 
: «PRINT "UN MOMENTO PREGO - : 
NORMAL 

210 FOR I * 1 TO 154 
220 READ A 

230 POKE 768 ♦ I - 1,A 
240 CK - CK ♦ A 
250 NEXT I 

260 IF CK < > 18300 THEN PRINT 

-ERRORE NELLE LINEE 'DATA ' . " 
i END 
265 HOME 
270 RETURN 

500 REM - STAMPA IL CATALOG - 

505 C = PEEK <254) - 1 
510 FOR I - 4 TO C 

530 EL* * MI D* < AA*< I ) ,8,35) i PRINT 
EL*;"<; I :CTR - CTR ♦ 1lARK 
*<CTR> - EL* ♦ NOME* 

540 NEXT I 

545 PRINT i PRINT : INPUT "<RETU 
RN> PER CONTINUARE"|DUMMY* 

550 RETURN 

560 REM - SORT ARCHIUIO DISCH 

ETTI- 

561 HOME : FLASH : UTAB lOi HTAB 
10: PRINT -ORDINAMENTO IN CO 
RSO-i NORMAL 

565 I - CTR 

568 I - INT <1 / 2) 

570 IF I « 0 THEN 59? 

572 F - CTR - I 

574 P * 1 

576 L - P 

578 H - L ♦ I 


U nel drive I. Vi verrà chiesto anche un nome 
da assegnare a ciascun dischetto introdotto. 
Quandó avrete passato tutti i vostri dischetti 
dovrete digitare la parola 'STOP'. A questo pun¬ 
to il programma metterà in ordine alfabetico 
tutti i file letti dai vari dischetti e vi stamperà 
un elenco di tutti i vostri programmi indicando 
per ciascuno il dischetto in cui si trova. 

Buon lavoro! 


580 IF ARK*<L> < - ARK* < H) THEN 

592 

582 T* » ARK*(L) 

584 ARK*< L> * ARK*< H) 

586 ARK*<H) * T* 

588 L =» L - I 

590 IF L > » 0 THEN 578 

592 P * P ♦ 1 

594 IF P > F THEN 568 

596 GOTO 576 

59? RETURN 

600 REM - STAMPA L'ARCHIUIO - 

602 HOME 

603 PRINT -ACCENDERE LA STAMPANT 
E <RETURN)“: GET DUMMT* 

604 PRINT CHR* <4) 

606 PRINT CHR* < 4)|"PR4- ;SL 

607 PRINT : PRINT --ARCHIUIO 

DISCHETTI -•: PRINT : PRINT 

610 FOR I - 1 TO CTRi PRINT ARK* 
<I)i NEXT I 

615 PRINT CHR* <4);-PR#0- 
620 RETURN 

5000 REM -MAIN- 

5010 bOSUB 200: REM CARICA ROUT 
INE LM 

5012 HOME : PRINT “INSERISCI IL 
DISCHETTO NEL DRIUE 1 M : PRINT 
; PRINT 

5013 PRINT -BATTI 'STOP 7 PER FIN 
I RE¬ 
SO 1 4 INPUT -DAI IL NOME DEL DISC 

HETTO —> M ;NOME* 

5015 IF NOME* «= ■■ THEN 5014 

5016 IF NOME* » "STOP" THEN 5037 

5017 PRINT : PRINT 

5020 CALL 768: REM LEGGI IL CAT 
ALOG 

5022 PRINT CHR* <4)*CATAL0G- 

5023 PR* 0 
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5024 CALL 1002 

5030 GOSUB 500s REM STAMPA IL C 
ATALÙG 

5035 GOTO 5012 

5037 GOSUB 5ò0 : REM SORT ORDIN 
E ALFABETICO 

5038 GOSUB 600i REM STAMPA L ' A 
RCH1UIO 

5040 END 

9999 REM CIFRA DI CONTROLLO 183 
00 

10000 DATA 169,96,141,52,174,16 
9,0,133,254,133 

10010 DATA 255,32,137,254,169,3 

8,133,54,169,3 

10020 DATA 133,55,32,234,3,169, 
0,141,39,3 

10030 DATA 169,2,141,40,3,198,2 
55,96,141,0 

10040 DATA 2,238,39,3,230,255,2 
40,12,32,240 


10050 DATA 253,32,137,254,32,14 

7.254.76.234.3 

10060 DATA 201,141,208,227,174, 
39,3,202,32,57 

10070 DATA 213,173,39,3,32,82,2 

28.172.39.3 

10080 DATA 169,0,133,94,169,2,1 
33,95,136,177 

10090 DATA 94,145,113,152,208,2 
48,1o5,184,72,165 
10100 DATA 185,72,169,141,133,1 
84,169,3,133,185 

10110 DATA 32,227,223,104,133,1 
85,104,133,164,160 
10120 DATA 0,173,39,3,145,131,2 
00,165,113,145 

10130 DATA 131,200,165,114,145, 
131,230,254,76,25 
10140 DATA 3,32,65,65,36,40,226 
,40,50,53 

10150 DATA 52,41,41,58 


Ingegneria Civile 



Ebbene, egregi Papersoftisti. questa . aita il vo¬ 
stro giornale preferito, unitamente al vostro vec¬ 
chio (ma in via di rivalutazione) 77-99. vi darà 
modo di costruire mentepopodimeno che dei 
ponti! 

Con la semplice digitazione di questo listato in 
Basic occuperete quasi tutta la memoria del 
TI; a proposito, se ancora non sapete come 
sopperire all'assenza dell'istruzione SIZE in 11- 
Basic. ve lo spiego ora: 

* digitate queste due linee: I S/ZE = S/ZE + 8 
2 GOSUB I 

* se dopo aver dato il RUN non fosse successo 
nulla, battete PRINl S IZE ed Enter 

In questo modo vi verrà indicato il numero di 
Byte disponibili. 

Bene, chiusa questa parentesi, parliamo del li - 

100 REM * INGEGNERIA CIVILE* 

TI- 99 BASIC 
110 CALL CLEAR 

120 PRINT TAB(7);"INGEGNERIA CIV 
ILE" 


stato in questione: avrete 6 opzioni tra cui sce¬ 
gliere per l'apprendimento dei principi di inge¬ 
gneria civile, o per la risoluzione dei vostri pro¬ 
blemi. Il vostro TI sarà un maestro incorrutti¬ 
bile ed inflessibile: finché non risponderete a 
tutte le questioni sollevate dal computer non 
potrete smettere, e questo potrà sembrare una 
tortura, ma se tenete conto che ogni proble¬ 
ma astratto viene visualizzato in forma grafi¬ 
ca... tutto sarà molto più piacevole! 
Insomma. se l'ingegneria civile non vi attira ma 
avete un po' di fantasia, questo programma 
vi sarà utile ugualmente per il vostro bricola¬ 
ge: costruzione di mensole e supporti vari. 

In caso contrario vi servirà ugualmente ad am¬ 
pliare le vostre nozioni. In ogni caso, auguri per 
il vostro studio. 

130 PRINT ::TAB(10);"FONDAMENTI" 

140 CALL COLOR(2,1,1) 

150 PRINT TAB(5)TRAV 
I SEMPLICI *"::::: 
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160 FOR E*1 TO 10 
170 CALL COLOR(2,6,6) 

180 FOR DÉLAY*1 TO 75 

190 NEXT DELAY 

200 CALL COLOR(2,5,6) 

210 FOR DELAY 3 1 TO 75 

220 NEXT DELAY 

230 NEXT E 

240 CALL CLEAR 

250 CALL COLOR(2,2,1) 

2 60 CALL COLOR(9,2, 1 ) 

27U CALL COLOR(12,11,1) 

280 CALL CHAR(120,"OFOFOFOFOFOFO 
F0F M ) 

290 CALL CHAR(121 ,"FFFFFFFFFFFFF 
FFF" ) 

300 CALL CHAR(122,"F0F0F0F0F0F0F 
0F0 H ) 

310 CALL CHAR(99,"18242424424281 
81 ”) 

320 CALL CHAR(100,"1824428181422 
418 ") 

330 CALL CHAR(101, M 0F091 22449" ) 

340 CALL CHAR(102,"FF24499224" ) 

350 CALL CHAR(103,"F80920408") 
360 CALL CHAR(104,"1010383854549 
292 ”) 

370 CALL CHAR(105,"1010101010101 
010 ") 

380 CALL CHAR(106,"9292545438381 
010 ") 

390 CALL CHAÌ< (112, "FFFFFFFFFFFFF 
FFF") 

400 CALL CHAR(113,"FOFOFOFOFOFOF 
0F0") 

410 CALL CHAR(114,"OFOPOFOFOFOFO 
FOF" ) 

420 CALL CHAR(115,"FF") 

430 CALL C11AR(98,"FF601 806083040 
FF") 

440 CALL COLOR(l1,6,1) 

450 PRINT TAB(7);"TRAVI SEMPLICI 
SORRETTE AGLI ESTREMI":::: 


460 1*17 

470 GOSUB 5210 

480 J*1 2 

490 GOSUB 5390 

500 CALL HCHARd-5,1 2,80) 

510 FOR L=I- 3 TO 1-1 

520 CALL HCHAR(L,17,112,10) 

530 NEXT L 

540 CALL VCHAR(1-3,27,113,3) 

550 CALL HCHAR(1-2,19,87) 

560 PRINT " TROVA LE FORZE DI R 
EAZIONE" 

570 GOSUB 5360 
580 GOTO 4830 
590 CALL CLEAR 

600 PRINT "LE LEGGI DI NEWTON SO 
NO NECESSARIE PER RISOLVERE 

PROBLEMI DI REAZIONE." 

610 PRINT "1. EQUILIBRIO DELLE F 
ORZE":" SOMMA DELLE FORZE * 

0":" SOMMA DEI MOMENTI * 0" 


620 PRINT :"2. LE FORZE RICORRON 
O SEMPRE":" IN COPPIE DI FOR 

ZA":" UGUALE E CONTRARIA":" 

AZIONE = REAZIONE"::: 

630 GOSUB 5420 
640 CALL CLEAR 

650 PRINT "PER RISOLVERE UN PROB 
LEMA:": : 

660 PRINT "SCHEMATI ZZA 
LO." 

670 PRINT :"CON 2 REAZIONI INCOG 
NITE," 

680 PRINT "RISOLVI 2 EQUAZIONI:" 

• • 

• • 

690 PRINT " SOMMA DEI MOMENTI 
= 0 " 

700 PRINT " SOMMA DELLE FORZE 
= 0" 

710 PRINT -."UTILIZZA LE CORRETTE 
UNITA* DI MISURA.":: 

720 GOSUB 5420 

730 IF CHOICE*2 THEN 1550 

740 CALL CLEAR 

750 PRINT "PROBLEMA:" 

760 PRINT : :"DATA UNA TRAVE SEMP 
LICE" 

770 PRINT "SORRETTA AGLI ESTREMI 
•« 

• 

780 PRINT :"ESSA HA LUNGHEZZA L. 

n 

790 PRINT :"UN CARICO CONCENTRAT 
O P" 

800 PRINT "E* AL CENTRO." 

810 PRINT :"E*IGNOTO IL PESO DEL 
LA TRAVE" 

820 GOSUB 5640 

830 1*16 

840 GOSUB 5200 

850 CALL HCHAR(1+1,12,76) 

860 J*16 

870 GOSUB 5390 

880 CALL HCHARU-5, 1 6,80) 

890 GOSUB 5870 

900 PRINT "CONSIDERATI I MOMENT 
1 " • 

910 PRINT "P*L/2 - B*L * 0" 

920 PRINT " B*L * P*L/2" 

930 PRINT TAB(11);"B = P/2": 

940 PRINT :"ORA PRENDIAMO LA" 

950 PRINT "SOMMA DELLE FORZE * 0 

M 

960 GOSUB 5420 

970 PRINT "A+B-P=0" 

980 PRINT " . A + B = P" 

990 PRINT " a = P - B = P 

- P/2" 

1000 PRINT TAB(9);"A * P/2" 

1010 GOSUB 5420 
1020 GOSUB 5200 
1030 CALL HCHAR(1+1,12,76) 

1040 GOSUB 5390 

1050 CALL HCHAR(11,16,80) 

1060 FOR Y = 4 TO 26 STEP 22 
1070 CALL HCHAR(22,Y,80) 

1080 CALL HCHAR(22,Y+l,47) 

1090 CALL HCHAR(22,Y+2,50) 

1100 NEXT Y 
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Ilio PRINT "SE IL CARICO CONCENT 
RATO" 


1 1 20 

PRINT 

"E* 

NEL CENTRO," 


1 1 30 

PRINT 

"A 

= B = P/2": : 


1 1 40 

PRINT 

"AD 

ESEMPIO, SE 

P-l 00 

0 KG, 

ii 




1 1 50 

PRINT 

«i 

A= 50 KG E 

B*5 


00 KG" 

1160 GOSUB 5420 
1170 RANDOMIZE 
1 180 EX*2 

1190 PP=1 00* ( INT<20*RND) ♦ l ) 

1200 LL*INT(6 * RND)+10 

1210 GOSUB 5460 

1220 GOSUB 5520 

1230 GOSUB 5640 

1240 GOSUB 5200 

1250 GOSUB 5390 

1260 GOSUB 5680 

1270 GOSUB 5780 

1280 GOSUB 6080 

1 290 IP AOl'P/2 THEN 1340 

1 300 IP tiOPP/2 THEN 1340 

1310 PRINT ::"»»* ESATTOMI ***" 

1320 GOSUB 5420 

1330 GOTO 1390 

1340 PRINT :"EH NO... LE REAZION 
I SONO:" 

1350 PRINT :"A ;PP/2 

1360 PRINT "B PP/2 

1370 GOSUB 5420 

1380 GOTO 1400 

1390 IP EX>2 THEN 1420 

1 400 EX=EX+1 

1410 GOTO 1 1 90 

1420 GOSUB 6120 

1430 IP KEY = 4 9 THEN 1190 

1440 IF KEY=51 THEN 4830 

1450 1=16 

1460 J=16 

1470 GOSUB 5200 

1480 GOSUB 5390 

1490 CALL HCHAK(1+1,12,76) 

1500 CALL HCHAR(I-5,16,80) 

1510 INPUT "LUNGHEZZA TRAVE « ": 
LL 

1520 GOSUB 5140 

1530 INPUT "CARICO P = ":PP 

1540 GOTO 1240 

1550 CALL CLEAR 

1560 PRINT "DATA UNA TRAVE DI LU 
NGH. L" 

1570 PRINT "SORRETTA AGLI ESTREM 
I A E B," 

1580 PRINT "UNA FORZA CONCENTRAT 
A DI" 

1590 PRINT "P CHILOGRAMMI E' APP 
LICATA" 

1600 PRINT "A D METRI DA A. IGNO 
RE" 

1610 PRINT "SI CALCOLI IL PESO D 
ELLA TRAVE."::: 

1620 GOSUB 5640 
1630 1=16 
1640 J=12 
1650 D=5 
1660 GOSUB 5200 
1670 GOSUB 5390 


1 680 CALL HCHAR(I- 5,J,80) 

1690 CALL HCHAR(1-1,9,68) 

1700 CALL HCHAR(1+1,16,76) 

1710 GOSUB 5870 * 

1720 PRINT :"CONSIDERATI I MOMEN 
TI" 

1 730 PRINT : "P*D - B*L - 0" 

1 740 PRINT TAB(7); " B* L = P*D" 
1750 PRINT TAB(9);"B = P*D/L" 
1760 PRINT :" SOMMA DELLE FORZE 
= 0" 

1770 GOSUB 5420 

1780 PRINT :"A + B - P = 0" 

1790 PRINT " A = P-B * P 

- P* D/ L" 

1800 GOSUB 5420 
1810 RANDOMIZE 
1 820 EX= 2 

1 830 PP»100*(INT(20*RND) f 1 ) 

I840 LL*I NT(6 *RND) +10 
1850 D-INT(10*RND)+1 
1860 GOSUB 5460 
1870 GOSUB 5520 
1880 GOSUB 5640 
1890 GOSUB 5200 
1 900 J = I NT(D/LL* 21)+5 
1910 GOSUB 5390 
1920 GOSUB 5680 
1930 GOSUB 5780 
1 940 -.DO$ =STR$ (D) 

1950 POR E=1 TO LEN(DD$) 

1960 EE=J-5 

1970 CALL HCHAR( 1 - 1 ,EE + E,ASC(SEG 
$(DD$, E, 1 ) )) 

1980 NEXT E 

1 990 CALL HCHARl I - 1 ,EE + E,39) 

2000 BB = PP*U/LL+.00 5 
2010 BB=1E-2*(INT(BB*1E2) ) 

2020 AA= PP-BB 

2030 IF EX=2 THEN 2080 

2040 GOSUB 6080 

2050 IF AA< >A THEN 2070 

2060 IF BB=B THEN 2130 

2070 PRINT :"LE NOSTRE RISPOSTE 

NON COINCIDONO.":: 

2080 GOSUB 5870 
2090 GOSUB 5940 
2100 GOSUB 6020 
2110 EX* 3 
2120 GOTO 1830 

2130 PRINT :::"** HAI RAGIONE ** 

•i 

2140 GOSUB 5420 

2150 EX=EX+1 

2160 IP EX< 4 THEN 1830 

2170 GOSUB 6120 

2180 IP KEY= 49 THEN 1830 

2190 IF KEY= 51 THEN 4830 

2200 CALL CLEAR 

2210 1*16 

2220 J=12 

2230 GOSUB 5200 

2240 GOSUB 5390 

2250 CALL HCHAR( I - 5 , J , 8 0 ) 

2260 CALL HCHAR(I- 1,9,68) 

2270 CALL HCHAR(1+1,16,76) 

2280 INPUT "LUNGHEZZA TRAVE * ": 
LL 
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2290 GOSUB 5140 

2300 INPUT '‘CARICO P = " : PP 

2310 INPUT "DISTANZA DA A = " : D 


2320 IF D>LL THEN 2340 
2330 IF D> *0 THEN 2360 
2340 PR1NT :"SPIACENTE, 0 <= D < 
= L": : 

2350 GOTO 2310 
2360 GOTO 1890 
2370 CALL CLEAR 

2380 PRINT "DATA UNA TRAVE SEMPL 
ICE" 

2390 PRINT "SORRETTA AGLI ESTREM 
I 

2400 PRINT "DI LUNGHEZZA L. " 

241tì PRINT "C'E 1 UN CARICO UNIFO 
RME" 


2420 

24 30 

2440 

2450 

IENE" 

2460 

E" 

2470 

O" 

2480 


PRINT "DI W KG AL METRO." 
GOSUB 5640 
CALL CLEAR 

PRINT "UN CARICO UNIFORME V 
PRINT "DETTO COME RISULTANT 
PRINT "EQUIVALENTE AL CARIC 
PRINT "AGENTE AL CENTRO DEL 


2490 PRINT "CARICAMENTO." 


2500 CALL HCHAR(21,5,112,7) 

2510 CALL HCHAR(20,7,87) 

2520 CALL HCHAR(20,8,47) 

2530 CALL HCHAR(20,9,76) 

2540 CALL HCHAR(22,8,776) 

2550 CALL HCHAR(21,15,6I) 

2560 CALL HCHAR(22,19,1 1 5,7) 

2570 1*22 
2580 J*22 
2590 GOSUB 5390 

2600 CALL HCHAR(18,21,87) 

2610 CALL HCHAR(21,23,76) 

2620 CALL HCHAR(21,24,47) 

2630 CALL HCHAR(21 , 25,50) 

2640 GOSUB 5420 
2650 GOSUB 6250 

2660 PRINT "CARICO EQUIVALENTE E 

i ii 

2670 PRINT "W*L AGENTE AL CENTRO 

II 

• 

2680 PRINT "PER CHIARIRE, A=B=W* 
L/2" 

2690 GOSUB 5420 

2700 EX= 2 

2710 RANDOM1ZE 

2720 WW*10*(INT(10*RND)+1) 

2730 LL-INT(10*RND)+10 

2740 GOSUB 5460 

2750 GOSUB 5610 

2760 GOSUB 5640 

2770 GOSUB 6250 

2780 GOSUB 5780 

2790 GOSUB 6330 

2800 GOSUB 6080 

2810 AA=WW* LL/2 

2820 DB=AA 

2830 IF AA<>A THEN 2880 


2840 

IF BUOI) THEN 

1 2880 

2850 

PRINT 

:"** ESATTO! 

2860 

GOSUB 

5420 


2870 

GOTO 

2930 


2880 

PRINT 

: " A= B = W 

1 * L/2 " 

2890 

PRINT 

"A*B*"; 

AA;"KG" 

2900 

GOSUB 

5420 


2910 

EX-EXf1 


2920 

GOTO 

2720 


2930 

1*18 



2940 

y=i 6 



2950 

Z = 5 



2960 

EX* EX+1 


2970 

GOSUB 

6280 


2980 

PRINT 

"L * 16 

METRI" 

2990 

PRINT 

"W =* 80 

KG/M" 

3000 

M 

PRINT 

" AGENTE 8 M DA A 

301 0 

PRINT 

" A 

12 M DA A": : 

3020 

PRINT 

"LA FORZA EQUIVALENTE 

E' " 




3030 

PRINT 

"80 KG/M * (12 M - 8 

MT) " 




3040 

PRINT 

« = 

320 KG" 

3050 

PRINT 

"APPLCATA 10' DA A." 

3060 

PRINT 

:"SOMMA 

I MOMENTI DI 

A. " 




3070 

GOSUB 

5420 


3080 

GOSUB 

5200 


3090 

J = 1 9 



3100 

GOSUB 

5390 


31 1 0 

LL» 1 6 



3120 

PP*320 


31 30 

GOSUB 

5680 


31 40 

GOSUB 

5780 


31 50 

CALL HCHAR(I- 

1,10,49) 

31 60 

CALL HCHAR(I- 

MI ,48) 

31 70 

CALL HCHAR(I- 

1,12,39) 

3180 

PRINT 

"320# * 

10' - B*16 1 * 

0" 




3190 

PRINT 

TAB(5); 

"B=3200/l6 KG 


= 200 KG": : 

3200 PRINT "ORA SOMMA LE FORZE" 
3210 GOSUB 5420 

3220 PRINT :"320# - 200# - A * 0 

•i 

3230 PRINT " A = 120 KG" 

3240 GOSUB 5420 
3250 EX-EX + 1 
3260 RANDOMIZE 
3270 GOSUB 6490 
3280 GOSUB 6440 
3290 GOSUB 6560 
3300 GOSUB 5420 
3310 GOSUB 5200. 

3320 GOSUB 6200 
3330 GOSUB 6330 
3340 GOSUB 5780 
3350 GOSUB 6080 

3360 BB=LOAD*(D2=2+Ll)/LL+.005 
3370 BB=1 E-2 *(I NTlBB * IE2) ) 

3380 AA=IOAD-BB 
3390 IF AAOA THEN 3440 
3400 IF BUOI) THEN 3440 
3410 PRINT :"** ESATTO 
3420 GOSUB 5420 





3430 GOTO 14*0 

3440 PRlNT :"SPIACENTE, E' M 
3450 PRlNT "A = ";AA 
3460 PRINT "B « ";BB: 

3470 GOSUB 5420 

3480 GOTO 3250 

3490 GOSUb 6120 

3500 IF KE Y = 49 TIIEN 3250 

3510 IF KEY=51 THEN 4830 

3520 CALL CLEAR 

3530 1=16 

3540 Y = 1b 

3550 Z = 5 

3560 GOSUB 6280 

3570 INPUT "LUNGHEZZA TRAVE IN M 
= H ;LL 

3580 GOSUB 5140 

3590 INPUT “CARICAMENTO W KG/M - 
" : WW 

3600 IF WWOO THEN 3630 
3610 PRINT "SE W=0, A=B=0" 

3620 GOTO 3590 

3630 INPUT "AGENTE ALLA DISTANZA 
DA A ": Li 

3640 IF Li< 0 THEN 3660 

3650 IF Li<LL THEN 3680 

3660 PRINT "SPIACENTE 0 <= Li < 

LL" 

3670 GOTO 3630 

3680 INPUT "TO - D1STANCE FROM A 
" : L2 

3690 IF L2< = Li THEN 3710 
3700 IF L2< = LL THEN 3730 
3710 PRINT "SORRY, Li < L2 < = L" 

3720 GOTO 3680 
3730 GOSUB 6560 
3740 GOTO 3310 
3750 CALL CLEAR 

3760 PRINT TAB(2);"COMBINAZIONE 
DI CARICHI":: 

3770 PRINT :"PER RISOLVERE QUEST 
O TIPO Di" 

3780 PRINT :"PROBLEMA : ANALIZZA 
LA TRAVE." 

3790 PRINT :"SOMMA I MOMENTI DI 
A O B." 

3800 PRINT ::"SOMMA LE FORZE":: 

3810 GOSUB 5420 

3820 CALL CLEAR 

3830 RANDOMIZE 

3840 GOSUb 6490 

3850 GOSUB 6560 

3860 PP=100 *(I NT(15*RND ) ) 

3870 D»INT(LL*RND) 

3880 GOSUB 5480 

3890 IF PP = 0 TIIEN 3910 

3900 GOSUb 5540 

3910 IF WW*0 THEN 3960 

3920 GOSUB 5610 

3930 IF Li * LL THEN 3950 

3940 GOSUb 6460 

3950 GOSUB 5640 

396U 1=16 

3970 J =INT(D/LL* 22) + 5 
3980 GOSUb 5200 
3990 GOSUB 5780 


4000 IF v%W = 0 THEN 4030 

4010 GOSUB 6200 

4020 GOSUb 6330 

4030 IF PP=0 THEN 4060 

4040 GOSUb 5390 

4050 GOSUb 5680 

4060 GOSUb 6080 

4070 Bb= (PP*D+LOAD* (D2/2+L1 ) ) /LL 
+ .005 

4080 Bb-lE-2*(INT(BB*1K2)) 

4090 AA=PP+LOAD-BB 

4100 IF ABS(AA-A)>.01 THEN 4170 

4110 IF ABS(BB-B)>.01 THEN 4170 

4120 PRINT ESATTO **" 

4130 GOSUB 5420 
4140 GOSUB 6120 
4150 IF KEY*49 THEN 3820 
4 160 IF KEY= 51 THEN 4830 ELSE 42 
20 

4170 PRINT ::"SPIACENTE.LA MIA R 
ISPOSTA E *" 

4180 PRINT :"A = ";AA 
4190 PRINT "B = ";BB 
4200 GOSUB 5420 
4210 GOTO 3820 
4220 CALL CLEAR 

4230 PRINT "PUOI INSERIRE PROBLE 
MI TUOI." 

4240 PRINT :"UNA COSA, PER FAVOR 
E: " 

4250 PRINT :"INSERISCI LE VARIAB 
ILI COME " 

4260 PRINT :"MOSTRATO NEL DIAGRA 
MMA. " 

4270 PRINT : :"IO TI DARÒ* LE RIS 
POSTE.":::::: 

4280 GOSUB 5420 

4290 1=16 

4300 J=!2 

4310 Li=0 

4320 L2=0 - 

4i30 D2 =0 

4340 LOAD=0 

4350 GOSUb 5200 

4360 GOSUB 5390 

4 370 CALL HCHAR(I-5,J,80) 

4380 Y=16 

4390 Z = 5 

4400 GOSUB 6200 

4410 CALL HCHAR(I-3,Y+2,87) 

4420 CALL HCHAR(1+2,13,76) 

4430 CALL HCHAR(I+1,Y,76) 

4440 CALL HCHAR(1 + 1, Y + 1,4 9) 

4450 CALL HCHAR(I +1 ,Y+ Z-1 ,76) 
4460 CALL HCHAR(I+1,Y+Z,50) 

4470 CALL HCHAR(I - 1 ,8,68) 

4480 INPUT "LUNGHEZZA TRAVE L = 

" : LL 

4490 GOSUB 5140 

4500 INPUT "FORZA P = " : PP 
4510 IF PP=0 THEN 4570 
4520 INPUT "DISTANZA D = ":D 
4530 IF D>LL THEN 4550 
4540 IF D>=0 THEN 4570 
I 4550 PRINT :"MI SPIACE, 0 <= D < 
| = L" : 
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4560 GOTO 4520 

4570 INPUT "CARICAMENTO W 


4 580 IP WW = 0 THEN 4710 

4590 INPUT "DISTANZA DA A,Li = " 

: Li 

4600 IF Li< 0 THEN 4620 

4610 IF Li<LL THEN 4640 

4620 PRINT "MI SPIACE, 0 <- Li < 

L" 

4630 GOTO 4590 

4640 INPUT "DISTANZA DA A,L2 * " 
: L2 

4650 IF L2< = Li THEN 4670 
4660 IF L2<«LL THEN 4b90 
4670 PRINT "MI SPIAC E, Li < L2 < 
* LL" 

4680 GOTO 4640 
4690 D2 = L2- Li 
4700 LOAD = WW* D2 

4710 BB*(PP*D+LOAD*(D2/2+L1))/LL 


4690 D2-L2- Li 
4700 LO A D = WW * D 2 

4710 BB-(PP*D+LOAD*(D2/2+L1))/LL 
+ .005 

4720 BB = 1 E-2*(INT(Bb*lE2) ) 

4730 AA-PP+LOAD-BB 
4 74 0 PRINT : :"A « "; AA ;"KG" 

4750 PRINT "B = ";BB;"KG" 

4760 GOSUB 5420 

4770 PRINT :"UN ALTRO PROBLEMA? 
(S/N) " 

4 780 CALL KEY(0,KEY, ST) 

4790 IF KEY = 8 3 THEN 4310 

4800 IF KEY = 7 8 THEN 48 30 

4810 GOTO 4780 

4820 END 

4830 CAI.L CLEAR 

4840 CALL -SCREEN(5) 

4850 FOK E-1 TO 8 

4860 CALL COLOR(E,12,12) 

4870 NEXT E 

4880 PRINT :::::::: 

4890 PRINT "SCEGLI:":: 

4900 PRiNT :"I CARICO CONCENTRAI 


4790 
4 800 


4890 PRINT 
4900 PRiNT 
O/CENTRO" 
4910 PRINT 
OVUNQUE" 
4920 PRINT 


:"2 CARICO CONCENTR. 

: "3 CARICHI UNIFORMI" 


4930 PRINT :"4 COMBINAZIONE DI C 
ARICI! I " 

4940 PRINT :"5 SOLO PROBLEMI" 
4950 PRINT :"6 TUOI PROBLEMI" 
4960 PRINT :"7 FINE LAVORO"::: 
4970 CALL VCHAR(1,2,32,24) 

4980 CALL VCHAR(1,31,32,24) 

4990 CALL VCHAR(1,1,32,24) 

5000 CALL VCHAR(1,32,32,24) 

5010 FOR E=1 TO 8 
5020 CALL COLOR( E, 2 , 1 2 ) 

5030 NEXT E 

5040 CALL KEY(0,KEY,ST) 

5050 CHOICE= KEY-4 8 
5060 IF CHOICFXl THEN 5040 
5070 IF CHOICE>7 THEN 5040 
5080 CALL CLEAR 
5090 CALL SCREEN(8) 

5100 FOR E=1 TO 8 

5110 CALL COLOR( E, 2,1) 

5120 NEXT E 


51JO ON CHOICE GOTO 590,590,2370 

,37 5u, J 8 2 O, 4220,4820 

5140 IF LL>-1 THEN 5190 

5150 PRINT "EHI, CHE TIPO DI TRA 

VE" 

5160 PRINT "HA QUESTA LUNGHEZZA? 
! ! " 

5170 INPUT "RITENTA; L = ":LL 

5180 GOTO 5140 

5190 RETURN 

5200 CALL CLEAR 

5210 CALL HCHAR(I,5,120) 

5220 CALL HCHAR(1,6,121,21) 

5230 CALL HCHAR(I,27,122) 

5240 CALL HCHAR(I+1,5,99) 

5250 CALL HCIiAR( 1 + 1,27,1 00) 

52 60 FOR K = 4 TO 26 STEP 2 2 
5270 CALL HCHAR(1+2,K,101) 

5280 CALL HCHAR (1+2,K+l,102) 

5290 CALL HCHAR(1+2,K+2,103) 

5300 CALL VCHAR(1+3,K+l,104) 

5310 CALL VCHAR(I+4,K+l,105,2) 
5320 NEXT K 

5330 CALL HCHAR(I+1,4,65) 

5340 CALL HCHAR(I+1,28,66) 

5350 RETURN 

5360 FOR DEI.AY~ 1 TO 500 
5370 NEXT DELAY 
5380 RETURtf 

5390 CALL VCHAR(I-4,J, 105,3) 

5400 CALL VCHAR(I-1,J,106) 

5410 RETURN 

5420 PRINT :"<ENTER> PER CONTINU 
ARE" 

5430 CALL KEY(0,KEY,ST) 

5440 IF KEY0 13 THEN 54 30 
5450 RETURN 
5460 CALL CLEAR 
5470 PRINT "PROBLEMA"::: 

5480 PRINT "DATA UNA TRAVE SEMPL 
ICE" 

5490 PRINT "SORRETTA AGLI ESTREM 
I," 

5500 PRINT "DI LUNGHEZZA";LL;"M. 

ii 

5510 RETURN 

5520 IF CHOICE>2 THEN 5540 
5530 PRINT :"SI CALCOLI PESO DEL 
LA TRAVE." 

5540 PRINT "UN CARICO CONCENTRAT 
O DI" 

5550 PRINT PP;"KG E' A" 

5560 IF CHOICE-1 THEN 5590 
5570 PRINT D;"METRI DAL TERMINE 
A. " 

5580 RETURN 

5590 PRINT "AL CENTRO DELLA TRAV 
E" 

5600 RETURN 

5610 PRINT :"C'E' UN CARICO UNIF 
ORME" 

5620 PRINT "DI";WW;"KG/METRO" 
5630 RETURN 

5640 PRINT :"TROVA LE FORZE DI R 
EAZIONE.": : 

5650 PRINT "ANALIZZA IL PROBLEMA 

ii. . 

• • • 

5660 GOSUB 5420 
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5670 RETURN 
5680 LB$ »STR$(PP) 

5690 FOR 11*1 TO LEN(Ltì§) 

5700 JJ=II+J-4 

5710 CALL HCHAR( I - 5 , J J ,ASC(SEG$( 
Ltì$ ,11,1))) 

5720 NEXT II 

5710 CALL HCHAR(1-5,JJ + 1,32) 

5740 CALL HCHAR(I-5,JJ+2,75) 

5750 CALL HCHAR (I-5,JJ+3,71 ) 

57o0 CALI. HCHAR(I-5,JJ+4,32) 

5770 RETURN 
5780 FT$-STR$(LL) 

5790 FOR 11=1 TO LEN(FTS) 

5800 JJ«12 + II 

5810 CALL HCHAR( I +1 , J J,ASC( SEG$( 
FT$,11,1))) 

5820 NEXT II 

5830 CALL HCHAR(T + l ,JJ+2,32) 

5840 CALL HCHAR(Iti,JJ+3,77) 

5850 CALL HCHAR(1♦1,JJ+4,32) 

5860 RETURN 

5870 CALL HCHAR(23,3,98) 

5880 CALL HCHAR(23,4,77) 

5890 CALL HCHAR(23,6,61) 

5900 CALL HCHAR(23,8,48) 

5910 PRINT "SCRIVI L' EQUAZIONE" 


5920 GOSUH 5420 
5930 RETURN 

5940 FRI NT :"CONSIUERATI I MOMEN 
TI IN A." 

5.950 PRINT : "P*D - B*L = 0" 

5960 PRINT " B * P * D/L" 


5970 PRINT " 
D;;LL 
5980 PRINT " 


tì =";PP;"*"; 
B = ";BB;"KG 


5990 PRINT :"ORA TROVA A." 
bOOO GOSUB 5420 
6010 RETURN 



6020 

PRINT 

: "SOMMA 

DELLE FORZE 

= 0” 
6030 

PRINT 

"P-A-B = 

0" 

6040 
" ; BB 

PRINT 

" A = 

P-B »";PP; 

6050 

PRINT 

" A = 

AA;"KG" 

6060 

GOSUB 

5420 


6070 

RETURN 



6080 

PRINT 

:"QUANTO 

VALGONO A E 

B IN 

KG?" 



6090 

INPUT 

"A = ": A 


6100 

INPUT 

" B = " : B 


61 1 0 

RETURN 



6120 

PRINT 

: :"VUOI 

ALTRI PROBLEM 

I?" 

61 30 

PRINT 

: "1 SI, 

DELLO STESSO 


TIPO" 

6140 PRINT "2 SI, MA CON I MIEI 
PROBLEMI" 

b150 PRINT "3 NO, FAI QUALCOS'AL 
TRO" 

6160 CALL KEY(0,KEY,ST) 

6170 IF KEYC49 THEN 6160 
6180 IF KEY>51 THEN 6160 
6190 RETURN 

6200 CALL HCHAR(1*1,Y,112,Z) 

6210 CALL HCHAR(1-2, Y,T 1 2,Z) 

6220 CALL VCHAR(1-2,Y-1,114,2) 

6230 CALL VCHAR( I - 2 , Y ♦ Z , 113,2) 

6240 RETURN 

6250 1=16 

6260 Y = 6 

6270 Z = 21 

6280 GOSUB 5200 

6290 GOSUB 6200 

6300 CALL HCHAR(1-3,16,87) 

6310 CALL HCHAR(I+1,16,76) 

6320 RETURN 

6330 X=INT(Y + 2/2- 3) 

6340 UL$=STR$(WW) 

6350 FOR E=1 TO LEN(ULS) 

6360 CALL HCHAR(1-3,X*E-1,ASC(SE 
G$ ( U L$ , E, 1 ) ) ) 

6370 NEXT K 

6380 CALL HCHAR(1-3,XfE,76) 

6390 CALL HCHAR(i-3,X+E+l,66) 
6400 CALL HCHAR(I - 3,X fE+2,4 7) 
6410 CALL HCHAR(I-3,X+E+3,70) 
6420 CALL HCHAR(I-3,X+E+4,84) 
6430 RETURN 
6440 GOSUB 5460 
6450 GOSUH 5610 

6460 PRINT "AGENTE DA";Ll;"M DA 
A" * 

6470 PRINT "FINO A";L2;"M DA A" 
6480 RETURN 
6 4 90 LL»INT(8*RND) + 12 
6500 v».* - 1 0 * ( INT ( 4 *RND) + 5) 

6510 LIMI =■ 1NT(3 * LL/4) 

6520 Lì *INT(LIMI*RND) 

6530 LIM2=LL-Li 

6540 L2 = INT(L1M2*RND)+L1+1. 

6550 RETURN 

6560 D2 = L2-LI 

6570 LOAD=WW*D2 

6580 Y*INT ( Li / LL*22 ) 4-6 

6590 Z* INT(D2/LL* 22)-1 

6600 RETURN 
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Pioggia ai missili 


Distruggete tutti i missili nemici che tentano di 
colpire la vostra base militare, lanciando a vo¬ 
stra volta potenti missili nucleari radio-guidati. 
I missili nemici passano senza soluzione di con¬ 
tinuità in direzione dello base; voi potrete ri¬ 
spondere alla loro offensiva con una rampa di 
lancio mobile: in particolare, i vostri missili po¬ 
tranno essere guidati in aria con i tasti ‘6 ’ e 
7* (sinistra e destra) e con il tasto *9\ cui cor¬ 
risponde l'accensione dei retrorazzi che con¬ 
sentono di arrestare l'ordigno a mezz'aria, in 


1 REM • PIOGGIA DI MISSILI * 

2 RESTORE : GO SUB 9000: LET hl-0: 

LET h$ = "--"S GO SUB 7 

000 

4 LET k = 5 

5 LET sc*0: LET lives»3 

6 BORDER 4: PAPER 5: CLS 

7 LET p*l5 

12 PRINT AT 21,0; PAPER 4; BRIGHT 1 

. « 
i 

•i 

13 LET y=l7 : LET p=p+l : IF p>-27 

THEN LET p=27: LET k*k-.2S: 

IF kO.5 THEN LET k*.5 

14 LET x = p: PRINT AT 21,0; PAPER 4; 

BRIGHT 1; INK 1;" PUNTI : " ; AT 21 
, 7 ; se 

15 PRINT AT 20,p-2 ; INK 0; PAPER 5; 
w HHH";AT 1 9,p-2 ; INK 2j M D"; 

INVERSE 1 ; H G"; INVERSE 0; T E"; 

AT 18,p-1; INK 1 ;" I H 
17 PRINT AT 21,24; PAPER 4; 

BRIGHT 1; INK 1; M VITE:"; INK 0; 
INVERSE 1 ; (" HI " AND Iives=3);( 
"II" AND 1ives-2);("I" AND lives 

•T T 

20 PRINT AT 19,0; INK 3;"D"; INK 7; 

PAPER 0 ;"{4G6}"; INK 3; PAPER 5 
;"E";AT 20,0; INVERSE 1;"E"; 
PAPER 0 ; "BASE" ; PAPER 5;"D" 

21 PRINT AT 18,1; INVERSE 1; INK 4; 

PAPER 0 ;"EEEE" 

22 PRINT AT 17,1; INK 7;"GGGG" 

40 LET r B INT (RND*11)+2 

50 FOR c=30 TO 3 STEP -1 

55 LET y-y-l 

56 IF y< * -1 THEN LET y-16: PRINT 
AT 0,x;" LET x-p 

60 PRINT AT y+1,x; " M 

61 PRINT AT r,c; INK 0;"B M 


attesa di incrociare la traiettoria del razzo av¬ 
versario; ed infine con il tasto V che provoca 
lo scoppio in aria del vostro missile, scoppio nel 
quale dovete cercare di coinvolgere l'arma ne¬ 
mica. Prestate particolare attenzione anche alle 
mine aeree che il nemico semina un po' do¬ 
vunque: se ne urtate una il vostro razzo esplo¬ 
derà e non riuscirete a salvare la vostra base 
dalla distruzione. Il gioco termina quando la 
base è stata colpita tre volte. 


62 IF RND<.4 THEN BEEP .005,33: 
PRINT AT r,c+l; FLASH 1; 

PAPER 6; INK 1;"M" 

101 LET X-X+(INKEY$- m 7 m AND X<31)-( 
INKEY$-"6" AND x>0) 

111 IF INKEY$-"0" THEN GO SUB 3000 

112 IF INKEY$-"9" THEN LET y-y+1 
115 PAUSE k 

120 BEEP .005,y 

130 IF ATTR (y,x)«241 THEN GO SUB 3 
000 

135 PRINT AT y,x; INK 2;"A M 
160 NEXT C 

165 PRINT AT y,x;" M 
167 PRINT AT r , 4 ;" H 

1 70 r FOR f-r TO 16 

180 PRINT AT f,3; INK 0;"F H 1 BEEP .1 
,f- (f # 2) 

185 PRINT AT f,3;" " 

190 NEXT f 

195 PRINT AT f-1,3;" M 

2 00 FOR t'-l TO 8 

210 PRINT AT 1NT (RNU*4)f17,INT ( 
RND* 4)♦1 ; FLASH 1; PAPER b; 

INK 2| H C M 
220 NEXT t 
225 FOR f-1 TO 100 
2 iO BEEP .002,INT lRND*60) 

240 NEXT t 

245 LET Iives a 1ives-1 : IF livu«<*0 
THEN GO TO 250 
247 GO TO 6 

250 FOR c-0 TO 21: PRINT PAPER 6; 

INK 1 ; " MMMMMMMMMMMMMMMMMMMMMMMM 
MMMMMMMM" : POKE 2369^,255; 

NEXT c 

260 BORDER 4: PAPER 4: INK 3: 

FLASH 1 
270 CLS 

280 PRINT AT 5,7; FLASH 1; PAPER 0; 
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INK 7;"I tuoi punti: "; se 
290 le* sOhi THEN LET hi-ac: 

PRINT AT 10,4; PAPER 0; INK 7j" 
E* IL MIGLIOR PUNTEGGIO": 

INPUT "Insertaci il tuo nome 
h$: GO TO 350 

J00 PRINT AT 10,2? PAPER 0) INK 7;"I 
L MIGLIOR PUNTEGGIO E' "|hi;AT 1 
2,9j"r«al i zzato da";AT 15,15- 
LEN h$/2;h$ 

350 PRINT AT 20,1; PAPER 0; INK 7;"U 
n'altra partita (S/N)?" 

360 IP lNKEY$»"s" THEN FLASH 0: 

GO TO 5 

370 IF INKEY$-"n" THEN GO TO 400 
390 GO TO 360 

400 LET a$ *"CIAO... E GRAZIE PER LA P 
ARTITA 1" 

402 CLS 

403 FOR f=0 TO 21 

405 PRINT PAPER 6; INK 1; FLASH 1; 

BRIGHT l;a$ 

410 NEXT f 

2999 GO TO 9990 

3000 PRINT AT y-1,x-1 ; PAPER 6j INK 2 
; FLASH 1;"C"; INVERSE 1;"C"j 

INVERSE 0; W C";AT y,x-l;"C H ; 
INVERSE 1 ; "CC" ; AT y*l,x-T;"C"; 
INVERSE 0 ; "CC" 

3005 IF r<*y+1 AND r>-y-l AND c<«x+l 
AND C>•X - 1 THEN FOR f-0 TO 60: 
UEEP .002,1: NEXT f: LET sc«sc+ 
50: GO TO 3040 

3020 FOR f-30 TO -30 STEP -1: BEEP .0 
02,f: NEXT f 

3030 PRINT AT 21,13; INK 0; BRIGHT 1; 

PAPER 4 ) "MANCATO"• GO SUB 5000: 
LET y- 1 7 l LET x-p: RETURN 
3040 PRINT AT 21,12; INK 0; BRIGHT 1; 

PAPER 4 ; " IN PIENO!" 

3050 GO SUB 5000: GO TO 13 

5000 FOR f»l TO 50: NEXT f: PRINT 

AT 21,12; PAPER 4; BRIGHT 1 ;" 

•• 

5005 PRINT AT y-l,x-l; PAPER 5;" "; 

AT y,x-l; M ";AT y+l,x-l; M " 
5010 RETURN 

7000 BORDER 7: INK 1: PAPER 7: 

BRIGHT 1: CLS : PRINT AT 0,7;"P 
IOGGIA DI MISSILI"; OVER 1;AT 0, 

. «t i* 

r —————————————————— 

7005 PRINT '"Il tuo compito e' di 


fendere la base dai missili numi 
ci B chela sorvolano continuam 
ente, lanciando i tuoi missili 

A • Questi ultimi sono radio 

guidati:" 

70)0 PRINT "in particolare, i tuoi mi 
ssili possono essere arrestati 
in ariaattivando i retrorazzi (t 
asto 9)e possono essere epost 
ati a destra e sinistra con i t 
asti 7 " 

7015 PRINT "e 6. Infine la pressione 
dei tosto 0 ne provoca l'espi 
osione in aria, esplosione nella 
quale devi cercare di coinvolge 
re i missili nemici." 

7020 PRINT "Attenzione pero* alle min 
e M chegli avversari seminano so 
pra la tua testa, in modo da dia 
turbarela traiettoria dei tuoi c 
olpi !" 

7040 PRINT 11 ;AT 1,8;"PREMI UN TASTO" 

7050 PAUSE 0 
7060 RETURN 
9000 FOR f*l TO 10 
9010 READ a$ 

9015 FOR t*0 TO 7: READ a 
9020 POKE USR a$ + t,a 
9030 NEXT t: NEXT f 

9040 DATA "a",24,24,24,60,90,153,165, 
1 95 

9050 DATA "b",1,2, 1 25, 253,1 25, 2, 1,0 
9060 DATA "c",4,32,20,67,16tì,2,48,I0 
9070 DATA "d” , 1,3,7,15,31 ,6i, 1 27,255 
9080 DATA "e M ,128,192,224,240,248,252 
,254,255 

9090 DATA "f",186,6tì,56,56,56,56,56,1 
6 

9100 DATA 'V',0,24,36,36,66,66,129,12 
9 

9110 DATA "h",24,126, 126,231 ,231 ,126., 
12b,24 

9120 DATA " i", 231 , 1 65,66,231 , 21 9, 1 B9, 
126,255 

9130 DATA "m",165,66,165,24,24,165,66 
, 165 

9200 RETURN 
9990 PAUSE 150 

9999 BORDER 7: PAPER 7: INK 0: 

FLASH 0: BRIGHT 0: OVER 0: 

CLS 


Paguro Bernardo 



Il Paguro Bernardo trascorre una solitaria esi- to "l'eremita "!), e fino ad oggi si pensava che 
slenza sul fondo del mare (non per nulla è det- la sua scarsa socialità fosse dovuta ad un’in- 
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dole scontroso e brontolona. Grazie o questo 
programma scopriamo invece che la bestiola 
scappa dalla folla perché...ha paura! Infatti nel 
suo ecosistema il paguro deve affrontare tal¬ 
mente tante insidie (meduse, coralli di fuoco) 
e deve sfuggire a nemici cosi grandi e voraci 
(i grossi pesci dorati) che inevitabilmente deve 
poi mantenersi diffidente nei confronti di chic¬ 
chessia! Proviamo dunque per una volta a ver- 
stire i suoi panni (pardon, la sua conciglia) e 
a lottare per la nostra sopravvivenza. Il pagu¬ 
ro che ci rappresenta in questo gioco vive nel¬ 


1 rem *********************** 

2 REM * IL PAGURO BERNARDO * 

3 REM *********************** 

10 BORDER 1: PAPER 1: FLASH 0: 
BRIGHT 1; 1NK 7: OVER 0: 

INVERSE 0: RESTORE : CLEAR : 

CLS 

15 LET aa-0: LET 2-1: LET A-21: 

LET B-0: LET SC-0: LET HSC-0: 
LET TIME* 2 50 : DIM A$(2): LET A$ 
(1)«"A": LET A$(2)-"B" 

20 GO SUB 1000 
30 GO SUB 2000: CLS 
40 FOR V*1 TO 100: PRINT AT INT ( 
RND* 2 2 ) , INT (RND*32);"NEXTV 

50 FOR V*1 TO 12: PRINT AT INT ( 
RND* 22) ,INT (RND*32); INK 2j"C": 
NEXT V 

60 FOR V*0 TO 8: PRINT AT INT (RND* 
2 2),INT (RND* 32) ; INK 4;"D"| 

NEXT V 

70 FOR V*Q TO 8: PRINT AT INT (RND* 
22),INT (RND*32); INK 6;"E"i 
NEXT V 

74 PRINT AT 21,0; INK 6; BRIGHT 0; M 
F" 

75 GO SUB 9000 

80 PRINT AT 21,0) INK 6; BRIGHT 0;" 
P" 

81 IF A-21 AND B-0 THEN BEEP .02,Z 
-25: GO TO 90 

85 PRINT AT A,B; INK 3;A$(Z): 

BEEP .02,2-25 
90 LET Z*Z+(Z-l)-(Z = 2) 

100 IF A=21 AND B-0 THEN GO TO 120 
110 PRINT AT A,B; M " 

120 LET B = BMINKEY$ = "p" AND B<31)-( 
IN KEY$-"o" AND B>0) 

130 LET A*A+(INKEY$* M a” AND A<21)-( 
INKEY$="q" AND A>0) 

140 IF TlME-0 THEN GO TO 5000 
150 LET TIME-TIME-1 
160 IF SCREEN$ (A,B)=". M THEN 
BEEP .05,10: LET SC-SC+1 
170 IF ATTR (A,B)*78 THEN BEEP .05, 
-15: LET aa-1: GO TO 3000 


la sua tana sul fondo del mare (nell'angolo in 
basso a sinistra dello schermo), e può essere 
mosso in tutte le direzioni con i tasti V & 'P' 
(spostamenti orizzontali) e 'Q' & ‘A' (sposta¬ 
menti in senso verticale). Durante la partita il 
crostaceo deve ingoiare la maggior quantità di 
cibo possibile, evitando gli ostacoli letali e rifu¬ 
giandosi in fretta nella tana prima della appa¬ 
rire del grosso pesce dorato: la partita termi¬ 
na in ogni caso alla comparsa di quest'ultimo, 
ma se riuscite a rientrare nel rifugio guadagne¬ 
rete almeno il bonus! Buon divertimento. 


180 IF ATTR (A,B)-76 THEN BEEP .05, 
-15: LET aa-1: GO TO 3000 

185 IF ATTR (A,B)-74 THEN BEEP .05, 
15: LET SC-SC+10 

186 IF TIMEOÌ5 THEN BEEP .05,30 
190 GO TO 80 

1000 REM UDG 

1010 FOR f-1 TO 6: READ p$ 

1020 FOR n-0 TO 7: READ udg 

1030 POKE USR p$+n,udg 
1040 NEXT n 
1050 NEXT f 
1060 RETURN 

1100 DATA "a",36,36,153,255,60,90,165 

1110 DATA H b", 0,24,60,1 26,1 26,60,0,0 
1120 DATA "c",0,0,0,56,56,56,0,0 
1130 DATA "d" ,165,149,73,138,84,40,24 
,24 

1140 DATA 56,1 24,254,84,84,84,84, 

68 

1150 DATA "f",60,126,255,255,255,231, 
195,195 

2000 PRINT AT 10,7; M IL PAGURO BERNARD 
0 H : BEEP .5,0: PAUSE 100: 

GO SUB 2500 

2010 PAUSE 0: BEEP .5,0 

2020 CLS : PRINT AT 5,10; INK 3;"A"; 

INK 7; M * TU";AT 7,10;".- 1 PUN 
TO";AT 9,10; INK 2;"C- 10 PUNTI" 

2025 PRINT ''TAB 10;"0 » SU"'TAB 10;" 
A - GIU'";'TAB 10;"P - DESTRA";' 
TAB 10;"O - SINISTRA": PAUSE 150 
: GO SUB 2500 

2030 PAUSE 0: BEEP .5,0: CLS 

2035 PRINT AT 0,0; PAPER 6; INK 2;" 

IL PAGURO BERNARDO " 

2040 PRINT 1 1 '"TU (A) SEI UN PICCOLO 
PAGURO CHEVIVE SUL FONDO DEL MAR 
E. NELLE PROFONDITÀ 1 MARINE SI 
CELANO" 

2042 PRINT "MOLTE INSIDIE MORTALI: TA 
GL1ENTICOBALLI ("; INK 4;"D"; 

INK 7;") E VELENOSISSIME ME 
DUSE ("; INK 6;"E"; INK 7;").IL 
TUO PEGGIOR NEMICO" 
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2044 PRINT "E' PERO' UN ENORME PESCE 
DORATO: MENTRE E' LONTANO PER CAC 
CIA RE, CERCA DI MANGIARE LA MA 
GGIOR QUANTITÀ* DI CIBO POSSIfal 
LE, E " 

2046 PRINT “APPENA LO SENTI ARRIVARE 
RIENTRAVELOCEMENTE NELLA TUA TAN 
A. LA PARTITA TERMINA SEMPRE 
AL SUO APPARIRE, MA ALMENO GUADA 
GNERAI UN BONUS (20 PUNTI)!** 

2040 PAUSE 200: GO SUB 2500 
2060 PAUSE 0 
2060 BEEP .5,0 
2070 CLS : GO TO 40 

2500 PRINT AT 20,9;“PREMI UN TASTO" 
2510 RETURN 

3000 BEEP 1 ,- 30i 1 E A-21 AND B-0 
THEN LKT SO6C*20 

3010 CLS : IP oa-1 THEN PRINT AT 8,1 
.2 ; "OUCh i " 

3015 PRINT AT 10,6;"LA PARTITA E' PIN 
ITA" 

3020 PRINT Al* 0,0;*'PUNTI **;SC 
3025 IF SO-IISC THEN LET HSC-SC 
3030 PRINT AT 0,1 5 ; “MAX . PUNTEGGI0 *' ; H 

SC 

3040 PAUSE 0: CLS : LET TIME-250: 

LET SC-0: LET Z-l : LET A-21: 

LET B-0: LET aa-0: GO TO 40 

5002 IF A<>21 OR BOO THEN 

PRINT AT A,B; INK 3;“A" 

5003 INK 2 : POH V-23 TO 0 STEP -1 


5005 BEEP .05,30 

5010 PRINT AT 10,V;"{SG2}(SG4}{2SG8} 
|SG1) {SQ2} ** 

5020 PRINT AT 11 , V; *' { G3 ) { 6SG8 ) ** 

5030 PRINT AT 12,V;"{G7}{3SG8}{SG4) 

{G 7 } " 

5040 FOR M-0 TO 2: NEXT M 
5050 PRINT AT 1 0 , V; *'{SG2 } {SG4 } ( 2SG8 } 
(SGt} {SG2}" 

5060 PRINT AT 1 1 , V ; '* ( 7SG8 ) " 

5070 PRINT AT 1 2 , V; '* {G7 ) ( 3SG8 ) {SG4 } 

{G7 ) " 

5080 FOR N-0 TO 2: NEXT N 
5090 PRINT AT 10,V+6; M " 

51 00 PRINT AT 1 1 , V+6; ** ** 

5110 PRINT AT 1 2, V+6 ; ** *' 

5120 NEXT V 
5130 CLS 

5150 INK 7: GO TO 3000 
9000 POR V*10 TO 0 STEP -1* BEEP .05, 
10+V: BEEP .05,9+V: BEEP .05,8+V 
l NEXT V 
9010 RETURN 

9900 REM li AI. VA w VERIFICA 
9910 CLS l BAVE “PAGURO*' LINE 10 
9920 CLS : PRINT AT 10,0 ;"RIAVVOLGI I 
L NASTRO E RICONNETTI< EAR > PE 
R VERIFICARE...." 

9930 VERI FY **": Cl.S : PRINT AT 10,14; 

FLASH 1 ; "O. K . '* 

9940 STOP 


Pinguini 



Avete un'ideo del freddo che fa al Polo ? alloro 
capirete la disperazione del piccolo e dolcissi¬ 
mo pinguino che anima questo gioco! Il piccolo 
animale soffre terribilmente il freddo, e l'uni¬ 
ca possibilità che egli ha per superare il rigido 
inverno polare consiste nel mangiare il mag¬ 
gior numero di pesci possibile, per accumulare 
calorie che si trasformino poi in grasso sotto¬ 
cute. unico 'cappotto ' disponibile per questo 
pennuto. 

Fortunatamente il pack è pieno di pesci (già 
morti e surgelati), lasciati in giro da numerose 
spedizioni scientifiche, assieme a dei tipici at- 


attrezzi umani: le scalette. Proprio grazie a 
queste scalette abbandonate il pinguino può 
tentare di battere sul tempo il suo . avversario 
di sempre, l'orso bianco, anch'esso alla ricer¬ 
ca di cibo gustoso. Aiutate dunque il simpati- 
co pinguino a raggiungere il prezioso pescioli¬ 
no prima dell’orso: usate i tasti ‘Q’ e W' per 
spostarlo a sinistra e destra, ed il tasto T per 
fargli salire le scalette. Segnaliamo che il pro¬ 
gramma è caratterizzato da un esteso utiliz¬ 
zo della grafica, certamente ispirata all'utore 
da Manie Mmer! 
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1 REM • ****•**••*• 

2 REM • PINGUINI * 

3 REM *•••••*••••# 

4 REM InUia) inazione 

5 LET hi-0 

10 CO SUB 3000 

19 REM iniziai, partita 

20 LKT t> • 2 1 LKT lavi 
30 LKT m$- M A tt M 

40 LET giro-Tl9 
830 LET r-1 8: LET C-l 4 

1001 LET e»2: LET d»0 

1002 LET f - f ♦ . 0 5 

1005 BORDER 1: PAPER 1: INK 7: CLS 
1010 FOR n*4 TO 20 STEP 4 
1 020 PRINT AT n, 0 ; INK 4; BRIGHT * 1; M C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC * 

1025 NEXT n 

1027 PRINT AT 0,0; INK 6; PAPER 0; 

BRIGHT 1 ;" PESCE: MAX 

• Il 

1028 PRINT AT 0,13; PAPER 0; INK 6; 

BRIGHT I ; lev;AT 0,23;hi 

1029 GO SUB 6000 

1030 REM loop principale 

1031 1F p-c OR p«c+ì THEN OO 8UB 800 
0 

1 035 PRINT AT r + 2,0 ; INK 4; UHIGHT 1; 
"C CCCCCC CCCCCCCCCCCCCCCCCCCCCCCC 

c 

"il 

1 040 PRINT AT t, c ; INK 6;m$ ( TO 2); 

AT r*1 ,c; ( 3 TO ) 

1 050 IF r< -5 THEN GO TO 7000 

1055 PRINT AT e,d; INK 6; BRIGHT 1 ;" 

DE";AT e+1,d; " FG" 

1 057 LET d-d + f 

1060 PRINT AT 3,29; INK 5; BRIGHT 1;" 
HI" 

1070 GO SUB 6020 
2000 IF d>» 27 THEN GO TO 5000 
2100 IF INKEY$*"q" THEN LET c«C-l: 
LET to$-"T U " : BEEP .0005, 30: 

IF giro<>1T3 THEN LET c«c + l: 
LET giro*113 

2110 IF IN KEY$ *"w" THEN LET c-c+l: 
LET m$ = " A B": BEEP .0005,30* 

IF giroOTl 9 THEN LET O-C-1 l 
LET giro*119 

2120 IF INKKYS-" i" AND ((c + 1*p AND gi 
ro-lly) OR (c-p AND giro-113)) 
THEN LET r-r-4i GO SUB 6000 
2140 IF o<*0 THEN LET o-O 
2150 IF 0*29 THEN LET c-29 
2160 GO TO 1031 

2999 REM preeuntazione 

3000 CLS : BORUER b: PAPER 6l INK Di 

BRIGHT Ol OVER Ol INVERSE 0: 
FLASH Ol CLS 

3010 INK 4i URIGHT li FOR t-1 TO 40l 
LKT a-INT (RND* 1 20) -fi l LET b- 
INT (RND* 4 0)♦l 
3020 PLOT 127,l05i DRAW a,b 
3030 PLOT 127,1051 DRAW -a,b 
3040 PLOT 127,105* DRAW -a,-b 
3050 PLOT 127,1051 DRAW a,-b 
3060 NKXT f 


3065 BRIGHT 0 

3070 PRINT AT 1,8; INK 2;"p I N G U I 
N I M 

3080 PRINT AT 16,0; INK 2; BRIGHT 1;" 
U->Indietro W->Avanti I->flu 
": BRIGHT 0 
3085 GO SUB 9000 

3090 PRINT AT 19,0; INK l; w prarai un t 
asto per iniziare. H 

3499 PAUSE 0 

3500 RETURN 

4999 REM routine di fine partita 

5000 BEEP .6,-10: BEEP .7,-20 
5005 PRINT AT 12,0;" 

M 

5010 PRINT AT 11,0; INK 7;"L*ORSO POL 
ARE HA PRESO IL PESCE!" 

5015 FOR v«0 TO 150: NEXT v 
5020 PRINT AT 12,0; INK 7;"Un'altra p 
artita? Premi un tasto"I PAUSE 0 

50Ì0 PAUSE 0 

5100 IF lev-1>hi THEN LKT hi-lev-1 
5110 <30 TU 2 0 

5999 REM routine dalla acala 

6000 LET p-INT (KND*29+1) 

6001 IF r*6 THEN LET p-29 

6002 LET ops = 0 

6003 PRINT AT 6,0;" 


6005 PRINT AT 10,0;" 


6006 PRINT AT 14,0;" 


6007 PRINT AT 18,0;" 


6008 IF r< *2 THEN RETURN 
6010 BEEP .005,10: BEEP .005,151 
BEEP .005,20 

6020 PRINT AT r-l,p;"J»;AT r-2,p;"J" 
6025 PRINT AT r♦1,p;"J";AT r,p; M J" 
6030 RETURN * ~ 

6999 REM nuovo livello 

7000 BEEP .1,10: BEEP .1,7: BEEP .5,2 
0: PRINT AT 12,5;" HAI PRESO IL 
PESCE 11 "i FOR 1-0 TO 200i 

NEXT il LET lev-le v+1t QO TO 10 

0 

8000 IF p-c AND giro-119 THEN LET 
■ " JAIB " 

8020 IF p-c+l AND yiro-113 THEN 
LET in$ -"TJUJ" 

8030 RETURN 

8999 REM udg 

9000 FOR f-l TO 12 
9010 HEAD p$ 

9020 FOR n-0 TO 7 

9030 READ byte 

9040 POKE US* p$+n,byte 

9050 NEXT n 

9060 NEXT f 

9100 RETURN 

9200 DATA "a",0,56,68,130,154,154,131 

,210 
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9210 DATA "bM 66,206, 1 58, 1 88,248, 32, 
12 4,0 

9220 DATA "c H ,0,255,251,123,114,50,48 
,16 

9230 DATA "d",3,7,7,7,3,15,31 , 63 
9240 DATA "e",192,224,224,224,192,240 
,248,252 

9250 DATA " f " ,55,55,23,7, 1 4, 1 4 , 1 4 , 1 4 
9260 DATA "g", 236,236,232,224,1 1 2, 1 12 
,112,112 


9270 DATA "h", 31 ,63, 1 27, 1 3, 1 27,63,31 , 
0 

9 2 UU DATA "i", 1 31 , 1 99,239,255,239,199 
,131,0 

929U DATA "j M ,129,255,129,129,129,255 
, 129,129 

9300 DATA M t",0,2b,34,65,89,89,193,75 

9310 DATA "u",101,115,121,61,31,4,62, 
0 


Autosprrite 



Un potente editor di Sprite per il vostro C64. 
dalle caratteristiche estremamente interesssan- 
ti. 

Una volta terminata l'iniziahzzaz/one. verrà vi 
suahzzata la schermata di lavoro dell'editor. 
Lo schermo e diviso in quattro aree diverse: 

* Area di visualizzatone degli SPRITE. Mostra 
gli otto SPRITE, numerati da sinistra a destra. 

* Linea di comando. Questa linea è usata dal 
programma per lo scambio di comandi o di 
messaggi con l'utente. 

9 Griglia di visualizzazione ed area di lavoro. 
Mentre si sta creando uno SPRITE. questo ap¬ 
parirà nella griglia con dimensioni ingrandite. 
Muovendo il cursore nella griglia si creano e si 
memorizzano le forme desiderate degli SPRITE. 
L'area di lavoro permette di visualizzare gli 
SPRITE in dimensioni normali per valutare la 
loro reale apparenza. 

Area tasti funzione. In quest'area vengono 
visualizzati i quattro tasti funzione con i co¬ 
mandi ad essi associati. Premendo F8 
(SHIF1 + F7) si passo al secondo set di coman¬ 
di: in totale si dispone di ben 14 funzioni di 
edit insieme a sette funzioni di lavoro, per un 
totale di 21 comandi. Le funzioni disponibili so 
no: 

EDIT: premendo questo tasto si otterrà la 
visualizzazione di un cursore lampeggiante al¬ 
l'interno della griglia. Esso può venire spostato 
tramite i normali tasti cursore. Premendo la 


barra spaziatrice si invertirà i! pixel sotto il cui 
sore: pixel accesi verranno spenti e pixel speri 
1 1 verranno accesi. 

Per uscire dal modo edit è sufficiente premere 
uno qualunque degli altri tasti funzione. Inol¬ 
tre è possibile passare all'edit di un altro SPRI¬ 
TE in qualunque momento, premendo il tasto 
carattere corrispondente al nuovo SPRITE. 

* S AVE: la pressione di questo tasto permette 
di salvare su nastro o disco gli SPRITE appena 
disegnati. Verrà chiesto il nome del file, limita¬ 
to a sei caratteri: dopo aver battuto il sesto 
carattere inizierà automaticamente l’esecuzio¬ 
ne della routine di save. Il programma aggiun¬ 
ge automaticamente al nome de! file i carat¬ 
teri ’.S PT" per rendere immediatamente iden¬ 
tificabili i dati degli SPRITE nella directory del 
disco. 

LOAD: la funzione load funziona analoga¬ 
mente alla save. 

' COPIA: per copiare uno SPRITE è sufficiente 
premere il tasto corrispondente allo SPRITE che 
desidera rimpiazzare, e quello SPRITE verrà vi¬ 
sualizzato nella griglia. Premendo quindi il ta 
sto copia (F4), il programma domanderà qua 
le SPRITE si desideri copiare. Premendo il ta¬ 
sto numerico corrispondente al numero dello 
SPRI TE desiderato, si otterrà la sostituzione au¬ 
tomatica dello SPRITE presente nella griglia. 

* CANCELLA: questa funzione cancella corri* 


20 








-Ecco chi si è abbonato,- 
ha risparmiato e ha vinto 
un Commodore 64 


Pubblichiamo l’elenco dei primi 40 fortunati vincitori del concorso abbonamenti 
Jackson 1985. A loro vanno le nostre più vive felicitazioni e agli altri nostri 
abbonati Tauaurio di essere fra i 60 restanti fortunati. 

Il prossimo mese pubblicheremo l’elenco di altri 20 fortunati vincitori. 
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pletamente uno SPRITE ponendo a 0 tutti i suoi 
bit. 

* RIEMPI: è il contrario di cancella, in quanto 
pone ad I tutti i bit dello SPRITE. 

’ FUNZIONE: cambia il set di comandi asso¬ 
ciato ai tasti funzione, permettendo di acce 
dere agli altri sette comandi. 

* INVERTI: questo funzione pone ad I tutti i 
bit dello SPRITE che si trovano a 0, e pone a 
0 tutti quelli che si trovano a I, creando un 'im¬ 
magine in "reverse" dello SPRITE. 

* ROVESCIA: rovescia lo SPRITE di 180 gradi 
in senso verticale. 

* RUOTA: ruota lo SPRITE da sinistra verso 
destra. 

* SCORRI: la funzione scorri provoca lo scorri¬ 
mento di tutti i pixel dello SPRITE in una delle 
quattro direzioni. I pixel che escono da un la¬ 
to dello SPRITE riappaiono dal lato opposto. 

* SCEGLI: questo comando ha effetto solo in 
congiunzione con un'altra funzione. 

Ad esempio, in modo colore questo tasto cam¬ 
bia il colore dello SPRITE corrente. 

* COLORE: permette di modificare il colore de- 
’li SPRITE. Dopo aver premuto questo tasto, 

10 REM *** SPOSTAMENTO DELLO SCH 
ERMO*** 

20 REM 

21 PRINTCHR5(8); :LZ$(O)»"0":LZ§( 

1 ) =*" (RVS) {OFF)*' 

25 DATA0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,27,237,213,0,255,200 
,0,19,127,240,0,0,0 

26 DATA255,0,254,246,241,242,243 
,244,999 

27 R3=PEEK(53272) 

30 POKE56578,PEEK(56578)OR3 
40 POKE56576,(PEEK(56576)AND252) 
ORO 

50 POKE53272,(PEEK(53272)AND240) 
OR2 

60 POKE648,1 96 :FF=0 

70 REM 

71 REM *** ACCENSIONE REGISTRI S 
PRITE *** 

72 FORR=532b /T05329 4: POKER, 1 4 : NE 
XX 

73 FORR=0TO7:POKE51192+R,R:NEXT: 
POKE53269,255:POKE53264,0 

74 FORR=491 52T049663STEP6: POKER, 

170 :POKER+1,170:POKER+2,170:N 
EXT 

75 FORR=491 55T049663STEP6: POKER, 
85 :POKER+1,85:POKER+2,85 :NEXT 


la pressione del tasto scegli (FI) modifica il co¬ 
lore dello SPRITE in un ciclo formato da tutti 
i 15 colon disponibili. 

* FONDO: modifica il colore dell'area di lavo¬ 
ro. Dopo aver premuto questo tasto occorre 
premere scegli (FI ) per modi fi care il colore del 
fondo. 

* AD/DL: permette di inserire o rimuovere uno 
SPRITE dall'area di lavoro. 

Premete il numero dello SPRITE che desidera¬ 
te aggiungere o rimuovere, quindi premete que¬ 
sto tasto funzione. 

* MUOVI: permette di muovere uno SPRITE al¬ 
l'interno dell'area di lavoro tramite i tasti cur¬ 
sore. 

* 2X OR: la pressione di questo tasto provoco 
l'espansione dello SPRITE in senso orizzonta¬ 
le. Se lo SPRITE è già espanso, lo riporta alle 
dimensioni normali. 

* 2X VT: come la precedente ma con espan¬ 
sione in senso verticale. 

* FNCTN: la pressione di questo tasto provo 
ca l’uscita dal modo lavoro e rientro in quello 
edit. cancellando l'area di lavoro e rimpiazzan¬ 
dola con la griglia. 

76 FORR = 0TOl4STEP2:POKER + 53248,2 
5 + R*15 :POKER + 532 4 9,52:NEXT 
80 REM **‘TRASFERIMENTO SET CARA 
TTERI* * * 

90 REM 

100 POKE56334,PEEK(56334)AND254 

110 POKE1,PEEK(1)AND 251 

120 F0RR=53248T055296 

130 POKER-2048,PEEK(R):NEXT 

140 POKE1,PEEK(1)OR4 

150 POKE56334,PEEK(56334)ORI 

160 REM 

170 REM “‘GRIGLIA CARATTERI*** 

171 DIMG(47),ZX(47),T(64) ,Y(64 ) , 
C$(16) 

1 80 REM 

190 CG$*"{ 24 0}[<G>](GIU'} 

{ 25 SIN)" 

191 CF$="{RVS){ 24 SPAZI)(OFF) 

(<G>1(GIU'){ 25 SIN)" 

195 BK$ = " { 24 SPAZIHGIU’) 

{ 24 SIN}" 

196 BE$ = "{ 24 SPAZI}" 

230 REM *** VISUALIZZAZIONE SPRI 
TE*** 

240 REM 

250 POKE53269,255 
340 REM “‘DEFINÌ ZI ONE TASTI FUN 
ZIONE* * * 


22 



350 REM 

3 51 FORR=1TO30:S$ =S$ + "{DES}":NEX 
T 

360 FORN = 1T08STEP2: 

370 K$(N)="{ 2 DES}[< 5 I>1 

{GIU'H 5 SINjlRVS} F” +STR$ ( 
N) +" {GIÙ'H 7 SIN}{OFF) 
i<M>]{RVS)(< 7 I>|{OFF}[<G>} 

M 

380 K$(N + l) -" (<M>) {RVS}£ F"+STR$ 
(N+l>+" [<*>}{OFF}(<G>J 

{HOME}“ 

390 P $ ( N ) - " { 2 DES){<A>] { 3 *} 

{<S>]{GIU’}{ 5 SIN}BF"+STR$( 
N)+"B{GIU‘}{ 7 sinjToff) 

{<M >1 [<Z>] { 3 *} l < X >} {OFF} 

( <G> ) " 

400 P$ (N +1 ) «" ( <M> ] N F"+STR$(N+1) 
+" M {OFF}1<G>]ThOME}":NEXT 
405 REM 

410 REM “‘DEFINIZIONE POSIZIONE 
TASTI “ 

415 REM 

420 FORR=lT08:K$(R)-"{ 8 GIU 1 ) 

{ 31 DES)"+K$(R):NEXT 
430 F0RR-1T07STEP2:KS(R){HOME} 
" +SP$+K5 (r) :sp$»sp$+" 

{ 4 GIU’}":NEXT 

440 SP$=“{ 3 GIU'}":F0RR-2T08STE 
P2:K$(R){HOME)"+SP$+K$(R) : 
SP$=SP$+"{ 4 GIU'}":NEXT:SP$ 

_ Il M 

45Ò FORR«lT08:P$(R)-"{ 8 GIU 1 } 

{ 31 DES} " + P$ (R):NEXT 
460 FORR-IT07STEP2:P$(R){HOME} 
"+SP$+P$(R):SPS-SP$+“ 

{ 4 GIU'}":NEXT 

470 SP$«"{ 3 GIU'}”:FORR“2T08STE 
P2: P$ (R) = " {HOME} " ■fSPS + PS (R) : 
SPS=SP$+"{ 4 GlU 1 } M :NEXT 
480 REM 

490 REM *“ DEFINIZIONE MESSAGGI 

* • * 

500 REM 

510 M$(1)«"{HOME}{ 8 GIU'}(DES) 
{GIU*}{ 24 DES}EDIT. 

{ 2 GIU'}{ 5 SIN}SAVE. 

{ 2 GIU'}{ 5 SIN}'' 

520 M$ (1) «M$ (1)+"LOAD.{ 2 GIU'} 

{ 5 SIN)COPIA{ 2 GIU'} 

{ 5 SIN)CANC.{ 2 GIU'} 

{ 5 SIN}" 

530 M$ ( 1)=M$(1)+"RIEMPI 

{ 2 GIU'H 6 SIN}LAVORO 
{ 2 GIU' }{ 6 SIN jFNCTN" 

540 M$(2){HOME}{ 9 GIU'} 

{ 25 DES}ROVES.{ 2 GIU’} 

{ 6 SIN}INVER.{ 2 GIU'} 

{ 6 SIN}" 

550 M$(2)=M$(2)+"RUOTA{ 2 GIU’} 

{ 5 SIN}SCL D { 2 GIU'} 

{ 6 SIN)SCL S{ 2 GIU'} 

{ 5 SIN)" 


560 M$(2)«M$(2)+"SCL A 

{ 2 GIU'}{ 6 SIN)SCL B 
{ 2 GIU'}{ 6 SIN}PNCTN" 

570 REM 

580 REM ‘“DEFINIZIONE LINEE “* 
590 REM 

600 L$*"{HOME}{ 3 GIU'H 30 M 
l<E>){SIN}{SU}-{SIN}{SU}~ 
(SIN){SU}-{ 3 GIU'}{ 9 *}" 
610 L$ = L$ + "( 16 SIN} { 4 GIU*} 

{ 16 *}'• 

800 PRINT"{CLR}"; 

900 REM 

910 REM ‘“VISUALIZZAZIONE SCHER 
MO “* 

92 0 REM 

930 PRINT"{HOME}";CD$:PRINTL$:PR 
INTMS(1) 

932 PRINT"{HOME}{ 4 GIU'}";:FORR 
-0TO19:PRINTCG$;:NEXT:PRINT" 
{240}[<G>]{HOME}"; 

1000 REM 

1010 REM*VISUALIZZAZIONE TASTI F 
UNZIONE* 

1020 REM 

1030 PRINT"{HOME}"; :FORR=lTOS:PR 
INTK$(R) ; :NEXT:PRINT"{HOME} 

Il . 

104 0 A(0)-l:A(l)-3:A(2)'-5:A(i)-7 
:A(4)-2:A(5)-4:A(6)-6:A(7)- 
8 

1060 REM 

1065 REM ‘“INTRODUZIONE COMANDI 

* * * 

1070 REM 

1080 PRINT"{HOME){ 4 GIU'} 

{ 25 DES)PREMI SCELTA 
{ 2 SPAZI}:{ 2 GIU'} 

{ 15 SIN}"; 

1081 PRINT"! 15 SPAZI}" 

1082 GETA$: IFA$“""THEN1082 

1084 REM 

1085 REM *“ CONTROLLO TASTI “ 

* 

1086 REM 

1087 VA^ASC(A$) 

1088 1F(VA>132ANDVA<141)THEN1130 

1 089 IP(VA<490RVA>56)THEN 1080 
1 090 GOTO 1205 
1100 REM 

1110 REM “* VISUALIZZAZIONE SCE 
LTE“ * 

1120 REM 

1130 PR1NTP$(A(ASC(A$)-133)) 

1140 FORR-0TO99:NEXT 

1150 PRINTKS(A(ASC(A$)-133));" 

{HOME}"; 

1160 GOTO1390 
1180 REM 

1190 REM ‘“VISUALIZZAZIONE SPRI 
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TE*** 

1200 RUM 

1205 POKESP*2+53248,25+SP*30 
1210 POKE53264,2t(VA-49):POKE532 
40+(VA-49)*2,40:SP-VA-49 
1220 GOTOl265 

1265 PRINT"(HOME){ 4 GIU 1 } 

{ 25 DES)ENTRY MODE: 

( 4 SPAZI){ 2 GIU * ) 

{ 15 SIN)"; 

1267 PRINT"SPRITE I";SP+1;"(SIN) 
{ 6 SPAZI}" 

1268 PRINT"(HOME)) 4 GIU')";:FOR 
R-0TO19 :PRINTCG$; :NEXT:PRIN 
T" ( 24 0}(<G>) (HOME)"; 

1270 PRINT"(HOME){ 4 GIU'}"; 

1272 LZS(0)*"0":LZ$(1) «"(RVS) 
(OFF)" 

1275 FORR=0TO62 : 

1277 IF(ROO) AND(R/3-INT(R/3) ) TH 
ENGOSUB1310 

1278 RR-PEEK(R+(49152+64*SP)) 

1279 PRINTLZ$(ABS((RRANDl28)-128 
) ) ;LZ$(ABS((RRAND64)-64)) ;L 
Z$(ABS((RRAND32)-32)) ; 

1 280 PRINTLZS(ABS((RRAND16)» 16)) 

;LZ3(ABS((RRAND8)-8));LZ$(A 
BS((RRAND4)-4)) ; 

1281 PRINTLZS(ABS((RRAND2)- 2));L 
Z$(ABS((RRANDl) -1) ) ; 

1283 NEXT:GOTOl080 
1310 PRINT"{GIU *){ 24 SIN)";:RET 
UKN 
1360 REM 

1 370 REM * * «FUNZIONI SPECIALI * 

* • 

1380 REM 

1390 IFFF-lTHENl500 
1 400 ON A(ASC(A$)-133)GOTO200 5,1 
432,1442,1452,1461,1471,270 
0,1493 

1410 GOTOl180 
1 4 30 i i,M 

1431 REM * * * REGISTRAZIONE SPRITE 

S»** 

1 432 POKESP* 2+53248,25+SP*30: POK 
E53264,0 

1 433 PRINT" ÌhOMEH 4 GIU’) 

{ 25 DES)USI IL DISCO O 
{ 2 GIU' }{ 15 SIN)"; 

1434 PRINT"IL NASTRO(D/N)" 

1435 GETA$: IFA$“""THENl435 

1 436 IFA$< >“N"ANDA$< >"D”THENl087 

1437 QS-AS:GOTO)760 

1440 REM 

1441 REM*** CARICAMENTO SPRITES* 

* * * 

1442 POKESP*2 + 5324 8,25+SP* 30 :POK 
E53264,0 

1443 PRINT"(HOME){ 4 GIU') 

{ 25 DESjUSI IL DISCO O 
{ 2 GIU')l 15 SIN)"; 


1444 PRINT"IL NASTRO(D/N)" 

1 445 GETAS:IFA$-""THEN1 445 
1 446 IFA$< >"N"ANDA$< >"D"THENl 087 

1447 Q$-A$:GOTOl910 

1450 REM 

1451 REM * * «COPI A SPRITE **» 

1452 PRINT"(HOME){ 4 GIU') 

( 25 DES JCOPIA SPRITE .. 

{ 2 GIU’)l 15 SIN)"; 

1 453 PRINT"( 2 SPAZI)i 

{ 3 SPAZI)(1-8){ 4 SPAZI)" 

1 454 GETCA$:IFCA$«""THENl 4 54 
1 455 GOTO 1605 
1 456 IFCAS-""THENl 4 54 

1459 GOTOl275 

1460 REM **‘CANCELLA SPRITE *** 

1461 PRINT"(HOME){ 4 GIU’} 

( 25 DES(CANCELLA 

{ 7 SPAZI){ 2 GIU') 

{ 15 SIN)"; 

1462 PRINT"SPRITE #{ 7 SPAZI) 

{ 7 SIN}";SP+1 

1463 H-49152+64*SP 

1464 FORR-HTOH+63:POKER,0:NEXT 

1465 PRINT"(HOME){ 4 GIU')";:FOR 
R-0TO19:PRINTCG$; :NEXT:PRIN 
T"( 24 O)(<G>)(HOME)"; 

1467 GOTOl080 

1470 «««RIEMPI SPRITE *** 

1471 PRINT"(HOME)( 4 GIU') 

{ 25 DES)RI EMPI( 9 SPAZI) 

{ 2 GIU'){ 15 SIN)"; 

1472 PRINT"SPRITE #{ 7 SPAZI) 

( 7 SIN}";SP+1 

1473 H-49152+64*SP 

1 474 FORR-HTOH + 63: POKER,255 :NEXT 

1475 PRINT"(HOME)( 4 GIU')";:FOR 
R-OTOl9 :PRINTCFS;:NEXT:PRIN 
T"(RVS){ 24 SPAZI){OFF) 

I<G>](HOME)" 

1477 GOTO 1080 

1490 REM 

1491 REM * * *SET FUNZIONI SPECIAL 

I*** 

1492 REM 

1493 FF-1:PRINTM$(2);"{HOME}";:G 
OTOl080 

1499 RETURN 

1500 ONA(ASC(A$)-133)GOTOl522,15 
31,1541,1551,1561,1572,1582 
,1 593 

1510 GOTOl180 
1 520 REM 

1521 REM ***ROVESCIA**** 

1522 PRINT"(HOME){ 4 GIU*} 

{ 25 DES}ROVESCIA: 

{ 6 SPAZI}{ 2 GIU' } 

{ 15 SIN}"; 

1523 PRINT"SPRITE l{ 7 SPAZI) 

{ 7 SIN)";SP+1 

1524 H=49152+64*SP 
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1 525 FORR-HTOH + 6 3 : POKER, 255- PEEK 
(R):NEXT 
1529 COTO1270 
1 530 REM * * * INVERTI *** 

1531 PRINT"(HOME) { 4 GIU'} 

{ 25 DES)INVERTI: 

{ 7 SPAZI 1{ 2 GIU') 

{ 15 SIN}"; 

1532 PRINT"SPRITE 4( 7 SPAZI} 

{ 7 SIN}";SP + 1 

1 533 H-491 52 + 64 * SP 
1 534 FORR-HTOH + 62 : T (R-H)-PEEK(R) 

: NEXT 

1 535 FORR-HTOH+ 6OSTEP3 
1536 POKER,T(60-(R-H)) 

1 537 POKER+1 ,T(61-(R-H)) 

1 538 POKER+2,T(62-(R-H)) :NEXT:GO 
TO1270 

1 540 REM * *‘RUOTA *** 

1541 PRINT"{HOME}( 4 GIU'} 

{ 25 DES}RUOTA:( 9 SPAZI} 

{ 2 GIU ' } { 15 SIN}'* ; 

1542 PRINT"SPRITE »( 7 SPAZI) 

( 7 SIN}";SP +1 

1543 H-49152 + 64 * SP 

1 544 FORR-HTOH + 6 2 :T(R-H)-PEEK(R) 

: NEXT 

1 545 FORR-HTOH + 60STEP3:POKER + 2, T 
(R-H) :POKER+1 ,T(R+1 -H) :POKE 
R,T(R+2-H):NEXT 

1 546 FORU-HTOH+63:Z-PEEK (U) :R-12 
8*(ABS((ZAND1)»1))+64*(ABS( 
(ZAND2)=2)) 

1547 R=R+32*(ABS((ZAND4)=4))+16* 
(ABS(ZAND8)-8))f8*(ABS(ZAND 
1 6 )= 16 ) ) 

1548 R=R+4*(ABS((ZAND32)=32))+2* 
(ABS(ZAND64)-64))+1 *(ABS(ZA 
ND128)-128)): POKEU, R 

1 549 NEXT:GOTO 1270 

1550 REM *«*SCROLL VERSO DESTRA 

* * * 

1551 PRINT"(HOME}( 4 GIU') 

( 25 DES}SCROLL DESTRO 
{ 2 SPAZI }{ 2 GIU'} 

{ 15 SIN}"; 

1552 PRINT"SPRITE #{ 7 SPAZI) 

{ 7 SIN}";SP+1 

1 553 FORU = 491 52 r b4 *SPTO(491 52 + 64 
*SP)+62STEP3 

1554 R=(PEEK(U)/2):Rl-(PEEK(U+l) 

/2) :R2-(U+ 2)/2) 

1555 IFPEEK(U)/2<>INT(PEEK(U)/2) 
THENRl“Ri+128 

1556 IFPEEK(U+l)/2<>INT(PEEK(U+l 
)/2)THENR2-R2 +12 8 

1 557 IFPEEK (U + 2)/2<>INT(PEEK(U + 2 
)/2)THENR-R+128 

1 558 POKEU,R:POKEU+1,Ri :POKEU + 2, 
R2 

1559 NEXT:GOTOl270 
1 560 REM * * ‘SCROLL VERSO SINISTR 

A*** 


1561 PRINT"(HOME){ 4 GIU'} 

{ 25 DES)SCROLL SINISTRO 
{ 2 GIU'}{ 15 SIN}"; 

1562 PRINT"SPRITE #{ 7 SPAZI} 

{ 7 SIN)";SP+1 

1 563 FORU = 491 52 + 64*SPTO(491 52 + 64 
*SP)+62STEP3 

1 564 R=PEEK(U)*2:R1-PEEK(U+l ) *2: 
R2-PEEK(U+2)*2 

1565 IFPEEK(U)->128THENR2=R2+1 
1 566 IFR2> 255THENR2 = R2 - 2 56 
1 567 IFPEEK(U+1)»>128THENR-R+1 
1 568 IFK> 2 5 5THENR=R-2 56 
1569 IFPEEK(U+2)->128THENR1=Rl+1 

1 570 IFR1>255THENR1-Ri - 256 

1571 POKEU,R:POKEU + 1,Ri :POKEU + 2, 
R2:NEXT:GOTOl270 

1572 PRINT"{HOME}{ 4 GIU'} 
l 25 DES}SCROLL ALTO 

{ 4 SPAZI}{ 2 GIU'} 

( 15 SIN}"; 

1 573 PRINT"SPRITE #{ 7 SPAZI) 

( 7 SIN } ";SP+1 

1 574 U-491 52 + 64*SP:Y-PEEK(U) :Yl = 
PEEK(U+l):Y2-PEEK(U+2) 

1575 FORR=0TO59STEP3 

1576 POKEU+R,PEEK(U+R+3):POKEU+R 
+ 1,PEEK(U + R f4) :POKEU+R+2,PE 
EK ( IJ+R + 5 ) :NKXT 

1577 POKEU+bO,Y:POKEU+61,Yl:POKE 
U+62,Y2 

1578 GOTOl270 

1580 REM 

1581 REM * * * ‘SCROLL BASSO “* 

1582 PRINT"(HOME){ 4 GIU'} 

{ 25 DES}SÙROLL BASSO 
( 3 SPAZI){ 2 GIU') 

( 1 5 SIN ) " ; 

1 583 PRINT*'SPRITE »( 6 SPAZI }X 
( 7 SIN}";SP+1 

1 584 U-491 52+64*SP:Y = PEEK(U + 60) : 
Yl«PEEK(U+61):Y2«PEEK(U+62) 

1585 POKEU+62,PEEK(U+62-3) 

1 586 FORM-59T02STEP-3: 

1587 POKEU+M,PEEK(U+M-3):POKEU+M 
+ 1,PEEK(U+M-2) :POKEU +M+ 2,PE 
EK(U+M-1):NEXT 

1588 POKEU,Y:POKEU+1,Y1:POKEU+2, 
Y2 

1589 GOTOl270 

1590 REM 

1591 REM * * ‘SET FUNZIONI INSERIT 

0 “* 

1592 REM 

1 59 3 FF-0:PRIHTMS(1 );"(HOME)" ; :G 
OTOl080 

1599 RETURN 

1600 REM 

1601 R EM * * ROU TIN E COPIA SPRITE* 

* 

1602 REM 
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1605 DA=ASC(CA$) 

1610 IF(DA>13 2ANDÒA<141)THENVA“D 
A:GOTO 1130 

1 620 IF(DA<490RDA>56)THEN10 80 
1690 VJ=491S2+64*SP:JJ-49152+64* 
(DA-4 9) 

1700 FORR=0TO63 
1710 POKEVJ+R,PEEK(JJ+R) SNEXT 
1720 GOTO1270 
1730 REM 

1 740 REM* *ROUTINE SALVA SPRITE** 
1750 REM 

1760 PRINT" {HOME}{ 4 GIU’} 

( 25 DES)SAVE : (NOME) 

{ 4 SPAZI){ 2 GIU') 

{ 15 SIN)*'; 

1 765 PRINT"-SPR { 5 SPAZI} 

{ 15 SIN}"; 

1 770 LL = 0:NMS = "" 

1775 FORR=0TO30:PRINT"{RVS}- 
{OFF}(SIN)"; 

1 780 GETA$: IFAS*""THENNEXT 
1 790 IFA$<>""THEN184 0 
1800 FORR»0TO30:PRINT"-{SIN}"; 
1810 GETA$: 1FA$“""THENNEXT 
1 820 IFA$< >""THEN184 0 
1830 GOTO1775 

1840 IFA$«CHRS(20)ORAS-CHRS(148) 
ORAS»CHI;$ (1 3)ORAS»CHRS (34)0 
RAS»"(SU}"THENl775 
1845 IFA$“"(GIU*}"ORAS*"(DES}"OR 
A$«"{SIN}"TH EN1775 
1847 IFASC(A§)>132ANDASC(AS)<141 
THENl080 
1850 PRINTAS; 

1 855 NMS»NM$+AS:LL»LL+1 : IFLL*6TH 
ENI 870 

1860 GOTO1775 
1870 NMS»NM$+".SPR" 

1 872 FORR» 53 2 4 8TO5329 4 :ZX(R- 5324 
8)-PKEK(R):NEXT 

1 874 POKESP*2+53248,25+SP* 30 :POK 
E53264,0 

1875 IFQ$«"N"THENl890 
1 880 RESTORE: OPEN 1,8,4,"@:"+NMS" 
,W":R=0 

1881 READF: IFF0 999THENPOKER + 532 
48,F:R=R+1:GOTOl881 

1882 FORR=49152TO49663 

1883 PRINT"(HOME){ 4 GIU’) 

( 36 DES)";R-49152 

1884 PRINTI1,PEEK(R):NEXT 

1885 FORR»5324STO5329 4 : POKER,ZX( 
R-53248):NEXT 

1888 CLOSE1:PRINT"{HOME} 

{ 6 GIU'}{ 25 DES) 

{ 14 SPAZI}";:GOTOl080 
1 890 OPENl,1,1,NMS:GOTOl 881 

1900 REM 

1901 REM*‘ROUTINE CARICAMENTO SP 
RITE** 


1902 REM 

1910 PRINT"{HOME}{ 4 GIU'} 

{ 2 5 DES)LOAD : (NOME) 

{ 4 SPAZI}} 2 GIU'} 

{ 15 SIN}"; 

1913 RESTORE 

1915 PRINT"-• SPR( 5 SPAZI) 

{ 15 SIN}"; 

1 920 LL»0 : NMS*"" 

1925 FORR=0TO30:PRINT"{RVS}- 
(OPF){SIN}"; 

1930 GETAS:IFA$“""THENNEXT 
1 935 IFA$< >""THENGOTO1960 
1940 FORR=0TO30:PRINT"-{SIN}"; 
1945 GETA$:IFA$-""THENNEXT 
1950 IFA$<>""THEN1960 
1 955 GOTO 1925 

1960 IFA$-CHR$(20)ORA$»CHR$(148) 
ORA$«CHR$(13)ORA$-CHR$(34)0 
RAS»"{SU}"THENl925 
1 965 IFA$»“{GIU'}"ORA$»“{DES}"OR 
A$“"(SIN}"THEN1925 
1970 IFASC(A$)>132ANDASC(A$)<141 
THENl080 
1975 PRINTAS; 

1980 NMS“NMS+A$:LL-LL+1:IFLL-6TH 
ENI 990 

1985 GOTOl925 

1990 NM$»NMS+"-SPR" 

1991 FORR-53248T053294:ZX(R-5324 
8)-PEEK(R):NEXT 

1992 POKESP*2+53248,25+SP*30:POK 
E53264,0 

1 993 IFQS”"N"THEN2001 
1994 OPENl,8,4,NMS+",R":R*0 
1 995 READF: IFFO999THENP0KER+532 
48,F:R»R+1:GOTOl995 

1996 FORR-49152TO49663 

1997 PRINT"{HOME){ 4 GIU*} 

{ 36 DES}";R-49152 

1998 INPUTfl,A:POKER,A:NEXT 

1999 FORR»5324 8T053294: POKER,ZX( 
R-53248):NEXT 

2000 CLOSElSPRINT"{HOME} 

{ 6 GIU 1 }{ 25 DES) 

( 14 SPAZI);SGOTO1080 

2001 OPENl,1,0,NMS:GOTOl995 

2002 REM 

2003 REM **‘ROUTINE EDIT SPRITE 

2004 REM 

2005 PRINT"{HOME}{ 4 GIU') 

{ 25 DES}MODO EDIT: 

{ 5 SPAZI]{ 2 GIU*} 

{ 15 SIN}"; 

2010 IFPEEK(53264)»0THENPRINT" 
(RVS}QUALE SPRITE?{OFF} 

{ 2 SPAZI}{ 7 SIN)";SGOTOIO 
82 

2015 LO»50336:SV«PEEK(LO):SM-(49 
152+(SP*64)):EX-7:GT-SC:BY- 
0 

2020 FORR=0TO30sPOKELO.SV 
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2030 GETA$: IFAS-""THENNEXT 
2040 IFA$< >""THKN20 90 
2050 FORR = 0TO30 :POKELO,102 : 

2060 GETA$:TFA$“""THENNEXT 
2070 IFA$< > = ""THEN 2090 
2080 GOTO2020 

2090 IFAS=”{SU)"THEN2200 

2091 IFA$="{GIU’}"THEN2100 

2092 IFA$“"{SIN}"THEN2300 

2093 IFA$="{DES)"THEN2400 

2094 IFAS-CHRS(32)ANDSV“160THEN2 
500 

2095 IFA$»CHR$(32)ANDSV=79THEN26 
00 

2098 IFA$=""THEN2020 

2099 POKELO,SV:GOTOl087 

2100 POKELO,102:FORR=0TO40:NEXT 
2110 IFGT=>SC+60THEN2020 

2120 POKELO,SV:LO=LO+40:GT=GT+3: 
SV*PEEK (LO) :SM“SM+3: GOTO202 
0 

2200 POKELO,102 :FORR=0TO40:NEXT 
2210 IFGT«<SC+2THEN2020 
2220 POKELO,SV:LO»LO-40 :GT=GT-3 : 
SV=PEEK(LO) :SM=SM-3 : GOTO202 
0 

2300 POKELO,102 :FORR=0TO40:NEXT: 

2310 IFEX»7ANDBY“0THEN2020 
2315 IFEX=7THENPOKELO,SV:LO“LO-1 
:EX=0:SM-SM-1:GT=GT-1:SV=PE 
EK(LO):BY“BY-1:GOTO2020 
2320 POKELO,SV:LO=LO-l:EX-EX+1:S 
V“PEEK(LO):GOTO2020 
2400 POKELO,102:FORR=0TO40:NEXT 
2410 IFEX=0ANDBY“2THEN2020 
2415 IFEX=0THENPOKELO,SV:LO-LO+1 
:EX«7:SM=SM+1 :GT-GT+1 :SV“PE 
EK(LO):BY=BY+1:GOTO2020 
2420 POKELO,SV:LO=LO+l:EX=EX-1:S 
V=PEEK(LO):GOTO2020 
2500 POKELO,79:POKESM,PEEK(SM) -( 
21 EX):SV=79:GOTO2020 
2600 POKELO,160:POKESM,PEEK(SM)+ 
(2 tEX) :SV*160:GOT02020 

2700 REM 

2701 REM “ROUTINE SPAZIO LAVORO 

* * 

2702 REM 

2705 PR1NT"(HOME){ 4 GIU’) 

{ 25 DES)AREA LAVORO 
{ 4 SPAZI)) 2 GIU') 

{ 15 SIN)"; 

2707 PRINT"SPRITE INSERITA" 

2709 FORR*=OTOl 4STEP2 : POKER+53248 
,25+R*15 :POKER+5324 9,52 :NEX 
T:POKE53264,0 

2710 WS(1)-"(HOME){ 8 GIU’){DES) 
{GIU’H 24 DESjSEL.. 

{ 2 GIU'){ 5 SINjCOLOR 
{ 2 GIU' ){ 5 SIN)" 

2711 C$(0)■"{BLK)":CS(1)“"{WHT}" 
:C$(2))RED)":C$(3)="{CYN) 


":CS (4 ) «" (PUR) " :CS (5) *=" 

{GRN)“:C$(6)«"{BLU)": 

271 2 C$(7)="{YEL)":C$(8)»" [<1> J" 
:CS(9)*"(<2>1":CS(10)*=" 
l<3>]":CS(11)-"l<4>)":C$ (12 
)-"[<5>)":C$(13)«"[<6>)": 
2713 C$(14)-"I<7>)":C$(15)-" 

I < 4 > ] " 

2720 WS(1)»W$(1)+"BCKGD 

{ 2 GIU’)( 5 SIN)AG/CA 
{ 2 GIU*){ 5 SIN)MUOVE 
{ 2 GIU*){ 5 SIN)" 

2730 W$(1)»W$(1)+"2X OZ 

{ 2 GIU’){ 6 SIN)2X VT 
{ 2 GIU’){ 6 SIN)FNCTN" 

2740 PRINT" (HOME) { 4 GIU')’’;:FOR 
R“0TOl9 :PRINTBKS; :NEXT:PR1N 
TBE$; WS(1 ) 

2745 REM 

2747 REM “"COMANDI SPAZIO LAVOR 
O »»* 

2749 REM 

2750 PRINT"(HOME)( 4 GIU') 

{ 25 DESjPREMI SCELTA 
{ 2 SPAZI){ 2 GIU') 

{ 15 SIN}"; 

2751 PRINT"{ 16 SPAZI)" 

2759 GETWS : IFW$“"’’THEN27 59 

2760 WA“ASC(WS) 

2770 IF(WA>132ANDWA<141)THEN3000 

2780 IF(WA<480RWA>56)THEN2750 
2785 WS°WA-49 

2787 IFAD=1THEN2800 

2788 IFMV“1THEN3450 

2789 GOTO2750 

2791 REM 

2792 REM "“ROUTINE IMMISSIONE S 
PRITE** 

2793 REM 

2800 IFPEEK(53249+WS*2)“>85THEN2 
900 

2810 POKE53248+WS*2,24 :POKE53249 
+WS*2,85:G0T02759 
2900 POKE5324 8+ (WS*-2J ,25+ (WS* 2) * 

1 5-.POKE53249+ (WS*2) ,52:GOTO 
2759 

2910 GETWS:IPWS»""THEN2910 
2920 WA“ASC(W$) 

2930 IF(WA>132ANDWA<141)THEN3000 

2940 IF(WA<480RWÀ>57)THEN2750 
2950 WS=WA-49 
2960 IFAD“1THEN2800 
3000 ONWA-132G0T03150,3325,3420, 
3620,3222,3510,3720,3800 

3100 REM 

3101 REM “ROUTINE SELEZIONE ** 

3102 REM 

3110 IFI = 15THENI« - 1 

3120 1 = 1 + 1 : RETURN 

3150 PRINT"(HOME)( 4 GIU’) 
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{ 25 DESJSEL.NON INS. 

{ 2 SPAZI ) ( 2 GIU' } 

{ 14 SIN)"; 

3160 PRINT"USA A/C O MUOVI" 

3170 FORR=OTOl500 :NEXT:G0T027 50 
3200 REM 

3210 REM **ROUTINE COLORE SPRITE 

* * 

3220 REM 

3222 PRINT"{HOME}{ 4 GIU'} 

{ 25 DES}CAMBIA COLORE 
{ 2 SPAZI}{ 2 GIU'} 

{ 15 SIN}"; 

3223 PRINT"SPRITE(USA SEL)" 

3230 GETW$:CL$-W$:IFW$=""THEN323 
0 

3231 WA=ASC{W$) 

3232 IF(WA>133ANDWA< 141)THEN3000 

3233 IF(WA>47ANDWA<57)THENWS“WA- 
49:GOTO3270 

3240 IFW$<>"{Fi}"THEN2760 
3250 GOSUB3110 

3260 POKE53287+WS,I : GOTO32 30 
3270 PRINT"{HOME} { 4 GIU'} 

{ 25 DES}SELEZIONATO 
{ 4 SPAZI}l 2 GIU'} 

{ 15 SIN}"; 

3275 PRINT"SPRITE »{ 7 SPAZI} 

{ 7 SIN}";WS + 1 
3280 G0T03230 
3300 REM 

3310 REM ‘‘ROUTINE COLORE SFONDO 

* * 

3325 PRINT"{HOME}{ 4 GIU’} 

( 25 DES }USA SEI. PER 

{ 4 SPAZI){ 2 GIU'} 

{ 15 SIN}"; 

3326 PR1NT"CAMBIO SFONDO" 

3330 GETCL$ : IFC L$ «" "THEN3 3 30 
3340 IFCL$<>"{Fi)"THENW$-CL$:GOT 

02760 

3350 GOSUB3100 

3360 PRINT"{HOME}";C$(I); 

3370 PRINT"{HOME}{ 4 GIU')";:FOR 

R-0TO19 :PRINT"{RVS}";BK$ ; :N 
EXT:PRINTBE$;"{HOME}l<7>) 
{OFF}";:GOTO3330 
3400 REM 

3410 REM “ ROUTINE MOVIMENTO SP 
RITE “ 

3420 PRINT"{HOME}{ 4 GIU') 

{ 25 DES}MUOVl{ 10 SPAZI) 

{ 2 GIU'}{ 15 SIN}"; 

3421 PRINT"SPRITE ♦{ 7 SPAZI} 

{ 7 SIN}";WS + 1 

3425 GETW5:IFW$»""THEN3425 
3427 WA=ASC(W$) 

3429 IFW$="{GIU'}"ÓRW$="{SU}"ORW 

{DES}"ORWS“"{SIN}"THEN34 
35 

3430 IF(WA>133ANDWA<141)THEN3000 


3432 IF(WA> 47ANDWA< 57)THENWS=WA- 
49 :G0T03480 

3435 IFWS»"{GIU'}"THEN3460 

3436 IFW$*"{SU}"THEN3465 

3437 IFW$“"{DES}"THEN3450 

3438 IFWS 1 *" {SIN }"THEN3455 

3450 IFPEEK(53248+WS*2)«192THEN3 
425 

3451 P0KE53 248+WS* 2,PEEK(53248+W 
S*2)+1 : GOTO3425 

3455 IFPEEK(53248+WS*2)«25THEN34 
25 

3456 POKE53248+WS*2,PEEK(532 48+W 
S*2)-1 : GOTO3425 

3460 IFPEEK(53249+WS* 2)«228THEN3 
425 

3461 POKE53 249+WS* 2,PEEK(53249+W 
S*2)+1:G0T03425 

3465 IFPEEK(5324 9+WS* 2)“79THEN34 
25 

3466 POKE53249+WS*2,PEEK(53249+W 
S*2)-1 : GOTO 3425 

3480 PRINT"{HOME}{ 4 GIU*} / 

{ 25 DES}MUOVE{ 10 SPAZI} 

{ 2 GIU'}( 15 SIN}"; 

3481 PRINT"SPRITE #{ 7 SPAZI) 

{ 7 SIN}";WS+1:GOTO3425 

3500 REM 

3510 REM**‘AGGIUNGI/CANCELLA SPR 
ITE*** 

3520 PRINT"{HOME){ 4 GIU'} 

{ 25 DES}AGG O CANCELLI 
{ 2 GIU'}{ 15 SIN}"; 

3530 PRINT"SPRITES{ 8 SPAZI)" 

3540 AD“1:MV*0:G0T02759 

3600 REM 

3610 REM**‘ESPANSIONE VERTICALE 
SPRITES** 

3620 REM 

3622 PRINT"{HOME}{ 4 GIU') 

{ 25 DES}2X ESPANSIONE 
{ 2 SPAZI}{ 2 GIU'} 

{ 15 SIN}"; 

3623 PRINT"VERTICALE{ 6 SPAZI}" 

3660 IV(PEEK(53271 )AND(2 tWS))»0T 
HENPOKE53271 r PEEK(53271)+(2 
tWS):GOTO2750 

3661 POKE532 71 ,PEEK(53271 ) — (2fWS 
):GOTO2750 

3700 REM 

3710 REM**«ESPANSIONE ORIZZONTAL 
E SPRITE* 

3720 REM 

3722 PRINT"{HOME}{ 4 GiU'J 

( 25 DES}2X ESPANSIONE 
{ 2 SPAZI}{ 2 GIU'} 

{ 15 SIN}"; 

3723 PRINT"ORIZZONTALE 
{ 4 SPAZI}" 

3760 IF(PEEK(53277)AND(2 tWS))“0T 
HENPOKE53277,PEEK(53277)+(2 
tWS):G0T027 50 


28 



3761 POKE532 77,PEEK(53277)-(2 tWS 
) :GOT027 50 

3800 REM 

3810 REM * * * RITORNO ROUTINE PRINC 
I PALE* * 

3815 PRINT"{HOME}{ 4 GIU'} 
t 25 DES}USCITA AREA 
{ 3 SPAZI}{ 2 GIU'} 

{ 14 SIN}"; 

3817 PRINT"DI LAVORO{ 6 SPAZI}" 


3820 PRINT"{HOME}{ 4 GIU'}";:FOR 
R=0TOl9:PRINTCGS;:NEXT:PRIN 
T"{ 24 O}I<G>}{HOME}"; 

3825 FORR«0TOl4STEP2:POKER+5324 8 
, 25+R*15 :POKER + 532 4 9,52:NEX 
T:POKE53264,0 

3830 PRINTMS(1);:F0RR-53287T0532 
94 : POKER,14 :NEXT:POKE53277, 
0:POKE53271,0 

3840 GOTO1080 


List & Serali 



Vi sarà senz'altro accaduto, analizzando un 
listato per capire la struttura di un program¬ 
ma o per trovarne gli errori, di arrabbiarvi per 
le difficoltà incontrate in questa operazione: li¬ 
nee chilometriche contenenti magari una doz¬ 
zina di istruzioni, cicli FOR di cui non riuscite 
ad individuare il NEXT conclusivo, istruzioni 
IF...THEN ben mimetizzate nel mezzo di una 
linea, e via di questo passo. Questo breve pro¬ 
grammo BASIC memorizza e attiva una routi¬ 
ne in linguaggio macchina, che serve proprio 
ad ottenere listati piu comprensibili. In che mo¬ 
do? Innanzitutto, stampando una sola istruzio¬ 
ne per riga, evidenziando all'inizio il numero 
di linea, e poi “indentando" i cicli FOR...NEXT 
e le istruzioni IF...THEN. Facciamo un esem¬ 
pio pratico con un “caso limite ". una linea lun¬ 
ghissima che. eccedendo gli 88 caratteri, deve 
esser stata memorizzata usando le (orme ab 
braviate delle istruzioni (come? per PRINT). Tale 
linea verrebbe normalmente listata come se¬ 
gue: 

IO A = IO:FORJ= I T04.F0RI 
= OTOIO:PRINTI,A'B:NEXT 
PPRINT' 'N.'J"‘ ’OK ’ \ B=A + 8 
:NEXTJ:IFJ = A THENA = 6:8: 

0:GOTO5 

Con “List & Scroll". invece, apparirebbe cosi: 
IO 

A = IO: 


F0RJ=IT04: 

FORI = OTOIO: 

PRINTI,A*B: 

NEXTI: 

PR/NT“N.“J" ,, OK": 

B = A + B: 

NEXTJ: 

IFJ = ATHENA3B: 

8 = 0 : 

GOTO 5 

Per ottenere questo risultato dovete battere, 
invece di List, un semplice punto, seguito even¬ 
tualmente da un numero di linea (ad esempio 
.120). Senza tale numero il listato inizia con 
la prima linea del programma BASIC in memo¬ 
ria: per muovervi avanti e indietro nel listato 
usate il tasto di controllo cursore (giù = avanti, 
su = indietro). Se premete RETURN oppure vi 
muovete oltre la fine o l'inizio del programma, 
il controllo torna all'interprete BASIC: ciò vie¬ 
ne segnalato dalla ricomparsa del cursore. 
IMPORTANTE: dopo aver digitato il program¬ 
ma, salvatelo IMMEDIATAMENTE su casset¬ 
ta o disco PRIMA di farlo girare: infatti, dopo 
aver adempiuto la sua funzione, la parte BA¬ 
SIC si autodistrugge tramite un comando NEW. 
La routine in linguaggio macchina occupa gli 
ultimi 400 bytes di RAM. e modifica i puntato¬ 
ri di fine memoria BASIC in modo da non in¬ 
terferire con i vostri programmi. 
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10 1 = 7280 :LB = I 
20 READA:I FA = 256THEN40 
30 POKEI ,A:CK=CK+A: I»I+1 : GOTO20 
4 0 IFCK< > 5200 5THENPRINT”{CLR) 
{GIU’jERRORE NELLE ISTRU 
{ 3 SPAZI}ZIONI DATA”:END 
50 HB=PKEK(56)*Z56+PKEK(55) : IFHB 
= 7 6 80THEN120 

60 HB=HB-400:READA:FORI=0TO384 
70 POKEHB+1 , PEEK ( LB+1 ) 

80 IFAOLB+ ITHENl 1 0 
90 V=PEEK(A)+PEEK(A+l)*256:A=V+H 
B-LB 

100 POKEHB+I,A-INT(A/256)*256:1* 
1 + 1 : POKEHB+1 ,INT(A/256) ‘.READ 
A 

110 NEXT:LB=HB 
120 SYSLB+3 : NEW 

7280 DATAI,113,28,173,113,28,133 

7287 DATA55,133,51,173,114,28,13 
3 

7294 DATA56,133,52,234,234,234,1 
69 

7 301 DATA76,133,1 24,173,1 47,28,1 
33 

7308 DATAI 25,173,148,28,133,126, 
96 

7315 DATA149,28,201,46,208,9,72 
7322 DATA173,122,0,201,0,240,9 
7329 DATA104,201 , 58,1 44,1 ,96,76 

7336 DATAI 28,0,169,2,141 ,251 ,0 
7343 DATA32,il 5,0,240,1 4,1 76,21 
7350 DATA32,107,201,32,209,28,32 

7357 DATA215,202,76,42,197,169,0 

7364 DATA133,20,133,21,24,144,23 
8 

7371 DATA76,8,207,234,234,234,32 

7 3 78 DATAI 9,1 98,1.60,2,1 77,95,1 33 

7 385 DATA20,200, 1 7 7,95,1 3 3,21,1 6 
0 

7392 DATA0, 1 77,95,201 ,0,208,47 
7399 DATA200,177,95,201,0,208,40 

7406 DATA240,69,169,0,197,20,208 

7413 DATAb,197,21,240,59,198,21 
7420 DATA198,20,32,1 9,198,160,2 
7427 DATAI 77,95,197,20,208,231 ,2 
00 

7434 DATA 177,95,197,21 ,2-0 8,224,3 
2 

7441 DATA95,229,24,144,201,32,93 

7448 DATA29,32,228,255,201,0,240 
7455 DATA249,201,145,240,204,201 


, 80 

7462 DATA234,234,234,201,13,240, 
8 

7469 DATA2J0,20,208,160,230,21,2 
08 

7 4 76 DATAI 56,96,56,233,1 27,1 70,1 

32 

7483 DATA73,1 60,255,202,240,8,20 
0 

7490 DATA185,158,192,16,250,48,2 

45 

7497 DATA200, 1 85,1 58,1 92,48,6,32 

7504 DATA210,255,208,245,96,164, 
73 

7511 DATA41,127,32,210,255,96,16 
0 

7518 DATA2,32,21 5,202,230, 1 99,1 7 
7 

7525 DATA95,170,200,177,95,32,20 
5 

7532 DATA221,198,199,32,215,202, 
1 66 

7539 DATA251,32,228,29,169,0,133 

7546 DATA253,160,3,200,177,95,20 
1 

7553 DATA0,240,83,166,253,208,4 
7560 DATA201,128,176,27,32,210,2 
55 

7567 DATA201,34,208,8,72,165,253 

7574 DATA73,1,133,253,104,201,58 

7581 DATA240,38,208,220,234,234, 
234 

7588 DATA234,234,234,201,130,208 

,6 

7595 DATA206,251,0,206,251,0,72 
7602 DATA32,54,29,104,201,129,24 
0 

7609 DATA36,201,167,208,191,230, 
252 

7616 DATA230,252,24,144,184,32,2 
1 5 

7623 DATA202,1 69,0,133,253,1 65,2 
51 

7630 DATA101,252,170,32,228,29,2 

4 

7637 DATA144,166,169,0,133,252,1 

33 

7644 DATA253,96,230,251 ,230,251 , 
208 

7 651 DATAI 53,224,0,240,7,32,63 
7658 DATA203,202,24,144,245,96,2 
17,256 

8000 DATA7281,7284,7291,7305,731 
0,7315 

8010 DATA7354,744 7,7541 , 7603,763 
4,0 
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Bit, 

la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 



GRUPPO 

EDITORIALE 

JACKSON 



Per ricevere gli arretrati di 


compilare il seguente tagliando: 


j 


Compilare ed inviare in busta chiusa a: 

’• SOft via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 

Indirizzo 


CAP 


Città 


Prov, 


Desidero ricevere i seguenti numeri arretrati di 


Anno 


a L. 2.000 cad. per un totale di L. 

□ assegno allegato □ contanti allegati 


a mezzo 



















A nolano, 

in via Mascheroni 14. 

la prima software 

Ubreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Ubreria JACKSON. 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

TeL 02-437385 

Vieni a trovarci : ti aspettiamo. 




